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GENERAL PROGRAM INFORMATION 
ABSTRACT 

THE RXn SYSTEM ReUIABILITV PRUGKAM CONSISTS OF S£LEUTAWLt 
TESTS THAT CHECK THE OPERATION OF THE HXU SYSTEM, «Y 
WRITING, READING AND VtRIFYING VARIOUS DATA PAT1ERN5, 
UNDER VARIOUS CSELECTASLE) HEAU MOVEMENTS. IT CAN TKANS- 
FER DATA AND CHECK FOR ERRORS OVER TH£ ENTIRE DISKETTE, 
ALL TRACKS AND SECTORS, OR BETWEEN SEPARATELY SELECTABLE 
TRACK AND SECTOR ADDRESS LH^ITS. 

AS WELL AS TRANSFERRING DATA THE PROGRAM ACCUllULATES 
STATICTICAL DATA ON THt FOLLOWING: 

A, COMPLETED PASSES OF THE PROGRAM 

B, NUMBER OF RESTARTS 

C, NUMBER OF SECTORS wRITTEN/KEAD 

D, RECOVERABLE AND UNKECOVER ABLE FaUuTS AS FQLLOwS! 

1, PARITY ERRORS 

2, EHROR FLAG ERRORS 

3, INTERRUPT ERROKS 
a, SEEK EWRDRa 

5, DATA CRC ERRORS 

6, CRC NO DATA ERK0R3 

7, DATA NO CRC ERKDRS 

8, DELETED DATa MAKK ERR0«S 

9, WRITE ERRORS 
10, READ ERRORS 

E, TOTAL OF EACH ERROR CODE DETECTED 

F, TOTAL OF TIMES EACH TRACK WAS ACCESSED 

G, TOTAL OF TIMES hEAU MOVED TO A TRACK, 

H, TOTAL OF ERRORS DETECTED PtR TRACK PER DRIVE, 

THE ABOVE INFORMATION AS REPORTED BY RUNNING THfc fcRRUR 
DUMP PROGRAM, 

SYSTEM REQUIREMENTS 

HARDWARE REQUIREMENTS 

THE FOLLOWING EQUIPMENT IS REQUIRED, 

Ag PDP*U SERIES OF COMPUTER WITH MIN 8K MEMORY 

B, RXll FLOPPY DISK SYSTEM INCLUDING DUAL OR SINGLE DRIVE 
RX01 AND POP-il INTERFACE, tSEE SECTION i,S FOR SELECTION 
OF REGISTER ADDRESSES AND VECTOR ADDRESS) 

NOTES A DISKETTE MUST »£ INCLUDED WITH EACH DRIVE TESTED. 

C, CONSOLE TELEPRINTER 

SOFTWARE REQUIREMENTS 

THIS PROGRAM ASSUMES THAT THE HXll INTERFACE DIAGNOSTIC 

( MAINOeC « 11 - 0IRX8-* ) HAS BEEN SUCCESSFULLY RUN ON THIS SYSTEM, 



2f0 
2.0.1 



a,i 



2,2 



& p ^ $ 1 



OPERATING INSTRUCTIONS 

OUTLINE OF OPREATING PKOCEDUR£ 

THE STANDARD OPERATING PPOCeOUKE FOR THE RXll RELIAaiUITY 
TEST CTO RUN ALL TESTS ON BOTH DRIVES WITH NO OPERATOR 
INTERVENTION VIA THE SWITCH REUISTfcR) IS AS FOLLOWS! 



A. 

8, 
C. 



D. 



E, 



LOAD THE PROGRAM INTO MEMORY 

U IP IT'S BEING LOADED FROM A DISKETTE. , RtPLACE 

THE "LIBRARY DISKETTE" WITH A "SCRATCH DISKETTE" 

START THE PROGRAM RUNNING AT LOCATION 2m 

THE PROGRAM WILL TYPE OUT THE FOLLOWING: 

1, PROGRAM NAME AND REVISION 

2, RXU REGISTER AND VECTOR ADDRESSES 

3, UNITS BEING TESTED 

«, "P"ATTtRN, "T"fcST, AND "S"EQUENCE 

IT THEN STARTS RUNNING UNDER THOSE CONDITIONS 

IF THERE ARE NO ERRORS* AT THE END QF THE COMPLETED PASS 
A "0" AND "BELL" IS TYPED, AND THE PROGRAM i^lLL CONTINUE 
ON FOR ANOTHER PASS, 

HALT THE PROGRAM AS FOLLOWS: 

1„ IF THEWt IS A HARDWARE SWITCH REGlSTfcR, PUT SW la 
UP rO MALT AT THE END OF PASS. 



2, 



IF THERE IS NO SWITCH REGISTER, OR Tg MALT 
AT ANY TIME, HALT THE PROCESSOR, 



LOADING PROCEDURE 

LOAD THE PROGRAM INTO MEMORY USING STANDARD PROCEDURE HQR 
BINARY PAPER TAPES* 

MAKE SURE THAT THE TOTAL SYSTEM IS READY FOR OPERATIUN, 
DISKETTE INSERTED CORRECTuYi DUQRS CLOSED ON DRIVES TO BE 
TESTED. ETC« 

STARTING ADDRESSES 

THE PROGRAM HAS THREE tJI STARTING LOCATIONS^ 

INITIAL START (LOC, 200) 

THIS STARTING LOCATION INITIALIZES TH£ PROGRAM AS FOLLOWS: 

A, CLEARS ALL ERROR LOGS 
8, RESETS COUNTERS AND CONSTANTS 

C, TYPES OUT ^mi REGISTER AND VECTOR ADDRESSES BEING USED. 
0. TYPES THE DRIVE AND TEST SELECTION IN "OTESTP" 
Ea INITIATES THE COLLtCTION QF STATISTICAL DATA PERTAINING 
TO THE OPERATION QF THE RXU SYSTEM, 



2.2.2 RESTART CUOC, 202) 

THIS STARTING LOCATION DIRECTS THE PROGRAM TO CONTTNUe 
RUNNING USING DRIVE ANp TEST SfcLE-dlONS SPE:CIFIED IN THE 
PREVIOUS INITIAL START, IT ALSQ CONTINUES TO ACCUMULATE 
STATICTICAL INFORMATION, AMMENDING IT TO THE DATA ALREADY 
COLLECTED PRIOR TO THIS RESTART, 

2.2.3 ERROR DUMP CLOC. 2l?«) 

THIS STARTING ADDRESS DIRECTS IME PROGRAM TO PRINT OUT 
ON THE CONSOLE TELEPRINTER ALL THE DATA ACCUMULATED PROM 
THE LAST "INITIAL START" TO THE TIME OF THE PRINTOUT, 
TYPING OUT THIS INFORMATION DOES NOT DESTROY IT, SO A 
RESTART CAN BE INITIATED AND INFORMATION WILL CONTINUE 
TO BE COLLECTED, 

2,3 OPERATOR ACTION BEFORE STARTING PROGRAM 

2,3,1 DEVICE ADDRESS SELECTION 

LIKE MOST OPTIONS ON THE POPll THE RXll INTERFACE CAWQ HAS 
JUMPERA8LE REGISTE« AND VECTOR ADDRESSES, THIS ALLOWS FOR 
DEVICES WITH THE SAME STANDARD ADDRESSES TO BE JUMPERfeU 
TO AN OTHER ADDRESS Su THEY WILL RUN WITHOUT CONFLICT, 

THE PROGRAM MUST KNOW WHAT ADDHESSES ARE BEING USED, AS 

IT IS THROUGH THFSE REGISTERS AND VECTOR THAT ALL COMMUNICATION 

BETWEEN THE PDPil AND WXll IS HANDLED, 

IF THE RXU SYSTEM UNDER TEST IS JUMPERED FOR REGISftR 

ADDRESS OTHER THAN STANDARD, WHICH IS RXCSslTTlTia ANU 

RX08»ir71i72, PLACE IN THE MEMQHY LOCATION CALLED "RXCS" CLOC. I20fe] ITS 

NEW ADDRESS, AND IN LOCATION "KXDB" CLOC, 12I0i ITS NEW ADDRESS, 

IF THERE AS A NONSTANDARD INTERRUPT VECTOR ADDRESS (STANDARD 

IS LOC 2643 THEN PLACE IN MEMORY LOCATION CALLED "IntvEC" 

(LOC, 1204) ITS NEW ADDRESS, 

IF THESE THREE MEMORY LOCATIONS DO NOT CONTAIN THE ADDRESSES THAT 
THE INTERFACE tJOARD IS wiRED TO THE PROGRAM WILL REPORT "TEST 
HUNG" AND HALT* OR HALT AT THE VECTOR ADDRESS THAT 15 JUMPERED IN, 
CNOTEl THE VECTOR ADDRtSSES CAN NOT B£ JUMPERED FOR LOCATIONS 
200 THROUGH 220 AS THESE ARE U^ED 8Y THE PROGRAM) 



2, 3, a NON-STANDARD DISK£TTE AODHESS SELECTION 

IF IT IS UESIREABLfc TO TEST THE DISKETTES SETwEtN TRACK 
AND SECTOR ADDRESS tIMITS OTHEK THAN BETWEEN THE NORMAL 
OUTER DIAMETER (OD) AND INNER DIAMETER CID) TRACK ADD- 
RESSES* AND/OR MINIMUM IFIRST) AND MAXIMUM (LAST) SECTOR 
ADDRESS, THIS IS DONE 8Y THE UPEKATQR MAKING CHANGES TD 
Two C2) MEMORY LOCATIONS BEFORE THE PROGRAM IS STARTED, 
ONE LOCATION IS CALLED OD WHICH CONTAINS TWO 
6YTES ONE FQR OD AND THE UTHER ID TRACK ADDRESSES, TMt 
OTHER LOCATION IS CALLtD FIRST AND IT TOO CONTAINS TWO BYTES 
ONE FOR FIRST THE OTHER FOR LA^T SECTOR ADDRESS, (IF 
THESE Two LOCATIONS ARt LEFT CLEARED THE MAX ANQ mIn 
VALUES FOR THE ADDRESSES ARE ASSUMED,) 

A. DEFINITIONS: 



OD s 
ID » 



ADDRESS 
AOORcSS 



OF 
OF 



TRACK 
TRACK 



AT 
AT 



OUTER 

INNER 



OlAMfcTtR 
DIAMETER 



(MlN 

(MAX 



VALUES^) 
VALUESU4 



FIRST a ADDRESS OF FIRST SECTOR OF TRACK (MIN VALUEal) 



[OCTAL] ) 



LAST 



ADDRESS OF LAST SECTOR OF TRACK (MAX VAtuEsiS [OCTAL]) 



9, LOCATIONS! 

TRACKS LOC, 1^00 BITS 14' 



ID 



.8 b.-..--!«5 
OD 



SECTORS LOC, 1202 «ITS 12------8 u------id 

LAST FIRST _,|:g5^ 

RESTRICTIONS! '^ 

THE CONTENTS OF "OD" MUST »£ LESS THAN gR EOUAL TO THE CONTENTS OF "ID" 
THE CONTENTS OF FIKST MUST BE LESS THAN OR EOUAU TO THfc CONTENTS OF "LAST" 



IF THESE LOCATIONS ARE CHANGED TO NEW LIMITS, THEN THt 
PROGRAM WILL ACCESS ONUY THOSE ADDRESSES INCLUSIVE OF 
AND BETWEEN THESE LIMITS, 



a, 3. 3 SOFTWARE SWiTCh REGlSTtK CLOC, lib) 

FOR THE PDP II PROCESSORS THAT DO NOT HAVt A HARDWAKt SWITCH 

REGISTER, OR IF THE OPtKATOR WlSH&S TO SEUFCT THE SOFTWARE 

SWITCH REGISTER, eV PUTTING ALL THE SWITCHES UP TO A "l%tTHIS MUST 

BE DONE EACH TIME THE PROGRAM IB STARTED AT LOCATION 21^0, OTHER 

WISE THE PROGRAM wlLL USE THE HARDWARE SWR.) LOCATION 176 IS ASSIGNED 

AS THE SWITCH REGISTER, BITS StT TO A "J" IN THIS LOCATION HAVE THE SAME 

FUNCTION AS THE CORR ISPONQING SWITCH IN THE HARDWARE SWITCH REGISTER, 

ALL REFERENCES TO THE SWR ARE INDIRECT AND THE PROGRAM ASSIGNS 

THE CORRECT ADDRESS OF THE SWR AT "INITIAL START", 

SEE SECTION 3,4,3 FOR THE SELECTION OF OPERATING CONDITIONS, 



TO CHANGE THE SOFTWARE SWR, WHiLE THE PROGRAM IS RUNNING, TYPE 
"CONTROL G", EACH TIM£ THE SWR. IS TO BE TESTED THE PROGRAM WILL CHECK 
TO SEE IF THE SOFTWARE SWR IS SELECTED, AND THE PROGRAM IS NOT RUNNING 
IN AUTO MODE OF KXDP/ACTU, IF BOTH CONDITIONS EXIST THEN THE PROGRAM 



CHECKS FOR THE CTRL G IN THE KtyiSaARD 
THE CONTENTS OF THE SOKTWARE SWR. ARE 
FOR, THE OPERATOR MAY NOW TYPE IN THE 
TERMINATED BY A CARRlAl,E RETU^^N tCR), 
THE SWR, JUST TERMINATE WITH TH£ (.CR3 
BELOW, 



BUFFER, IF THE CTRL G IS THERE 
PRINTED AND A "Ntw s" IS ASKED 
NEW SWITCH REGISTER CONTENTS, 
OR IF HE DOESN'T WANT TO CHANGE 
, NOTE SEE THE CHARACTER RESTRICTIONS 



WHEN THE PROGRAM 
SOFTWARE SWR,, IF 
OF THE PROGRAM, 



DETECTS THE C^-RJ IT WILL REPLACE 
A NEi^ ONE HAS BEEN TYPED IN, AND 



THE CONTENTS OF THE 
RETURN TO THE FLOW 



NOTE: CHARACTER RESTRICTIONS fOR CHANGING THE SOFTWARE SWR. 

1. ONLY OCTAL NUMbERS » 7 ARE ACCEPTED, ANY OTHER CHARACTER 
TYPED WILL BE PRINTED AS A ? ANQ THE wMOLE SWR MUST BE RETYPED. 

2. TO WIPE OUT A "NEW" CONTENTS JUST TYPED IN, TYPE CTRL U, 
NOW A NEW CONTENTS CAN BE RETYPED, 



3, ONLY b OCTAL CHARACTERS WILL 
IF MORE THAN 6 CHARACTtRS ARE TYPED IN 
BE PUT INTO THE SwR, 



at PUT 
ONLY 



INTO THE 
THE LAST 



SWR, 
b WILL 



2,3.« TEST PARAMETER SELfeCTlUN ("OTESTP" LOC, 1212) 

THE DRIVE AND TEST SfcLtCTlON MUST HE DONE BEFQKE THE 

PROGRAM STARTS, "OTESTP" (LOCATION 1212) IS WHERE THfc BITS 

ARE SET TQ TELL THE PRUGRAM what QRIVES ARE WANTED ANU WHAT TEST 

TO RUN, AS INDICATED BtLOw, »*lHtN THE PROGRAM STARTS IT WILL 

TYPE OUT THE TEST CONDITIONS IT IS RUNNING UNDER, 

eiT 15 CD SELECT DRIVE UNIT 1 
BIT 14 CI) SELECT DRIVE UNIT B 

THEN SET THE TEST CONDITIONS IN 9ITS 8 THROUGH 
AS SHOWN BELOW, 

"0TE5TP" BITS 15 14 13 12 U 10 '^ 8 7 fe 5 a i 2 1 

Ul U0 NOT USED U PPPTTTSSS 

BIT 9 IF BIT -* IS ON, ALL WRITE/WEaD ^UNCTIONS WRL 

BE IN THE DELETED DATA MODE. 
SIT 8,7,6 SELECTS A DATA PATTERN TO BE USfeD, 
BIT 5,4,3 SELECTS A TEST TO 9E PERFORMED. 
SIT 2,1,0 SELECTS A HEAD MOVtMENT SEQUENCE, 

THE SELECTIONS ARE DEFINED AS I'DLLOWSS 

P » DATA PATTERN SELECTION 






DEFAULT TU 7 


1 


ZEROS 


2 


ONES 


3 


FLOATING 4ERD 


4 


FLOATING ONE 


5 


125 


b 


314 


7 


RANDOM 



T « FUNCTIONAL TESTS 

a DEFAULT TU 7 

1 WRITE ONLY 

2 WRITE/READ 

3 WRITE/READ CHECK 

4 READ CHECK ONLY 

5 READ ONLY CCRC CHECK) 

6 WRITE/READ CHECK UN ALTERNATING DRIVES * 

7 WRITE/READ/REAQ CHECK ** 

* NOTE! TEST b WRITES THEN READ CHECKS ANY SELECTED DATA PATTERN 

USING ANY TRACK SEQUENCE, BUT UNE TRACK AT A TIME, 

FIRST ON UNIT THEN UNIT l, WHEN BOTH 

UNITS HAVE ACCESSED THAT TRACK, IT GOES BACK TO UNIT 

FOR THE NEXT TRACK, ETC, 



** NOTE! THE FIRST HAtf QF TEST 7 FORCES THE TKAC« SEQUENCE TO 
INCREMENT UP THROUGH ALL TRACKS OOING WRITE/RfcAD CHtCK FUNCTIONS, 
THIS VERIFIES THAT ALL TRACKS ARE ACCESSAQLE. THfc SECOND HALF 
OF THE PASS WILL USE THE SEQUENCE SELECTED 8Y TmE OPERATOR AS 
INDICATED BELOW, AND ONLY READ CHECK THE DATA JUST WRITEN, 
THIS VERIFIES THAT THE DATA CAN $t READ FROM A TRACK AFTER THE 
HEAD HAS BEEN MOVED AWAY FROM AND BACK TO THAT TRACK. AT THE 
COMPLETION OF THE PASS THE DELETED DATA BIT IN TEST CONDITIONS IS 
COMPLEMENTED and THE NEXT PASS i^lLU BE RUN UNUER THIS NEW CONDITIUN, 

S s TRACK SEQUENCING 

3 DEFAULT TU 7 

1 INCREMENT 

2 DECREMENT 

3 INCREMENT/DECREMENT 

4 BOUNCE 

5 DECREASlNii BOUNCE 
b STRQbE 

7 RANDOM 

IF NO BITS ARE SET (ZEROED "OTESTPJ) THEN THE 

PROGRAM WILL SELECT ALL DRIVE UNITS THAT ARE READY AND 

DEFAULT TO TEST CONDITIONS AS INDICATED, 

THE PROGRAM NEXT PRINTS THE REl»ISTER AND VECTOR ADDRESSES 
IT WILL USE IN COMMUNICATING WITH ThE RXll SYSTEM. AS 
EXPLAINED IN SECTION 3,3,1 THE OPERATOR MUST VERIFY THAT THESE 
ADDRESSES ARE THE ONES JUMPERED On THE RXll INTERFACE HOARD. 

a»« OPERATOR ACTION TQ RUN THE PROGRAM 

a.«,l STARTING THE PROGRAM 

SET THE DESIRED STARTING ADDRESS INTO THE SWITCH REGISTER, 
DEPENDING UPON THE TYPE OF CONSOLE AVAILABLE, LOAD ADDRESS, 
AND PRESS START, 

THE PROGRAM WILL TYPE ITS "MAINDEC" NUMBER ANu REVISION, 
AND DEPENDING UPON THE STARTING ADDRESS DO THE FULLOWINGI 

SA200 - THE PROGRAM WILL TYPE DRIVE AND TEST PARAMETERS, 
THE TWO REGISTER ADDRESSES, AND VECTOR ADDRESS, 
IT WILL THEN 6EGIN FUNCTIONAL TESTING, AND INFORMATION 
COLLECTION. 

SAg0a « THE PROGRAM WILL CONFIGURE TO CONDITIONS SET IN 

PREVIOUS "INITIAL START", PRINT OUT THESE CONDITIONS 
AND CONTINUE FUNCTIONAL TESTING AND DATA COLLECTING, 
THE ONLY OPERATOR ACTION REQUIRED IS THE DYNAMIC 
SELECTION OF OPERATING CONDITIONS IN TH£ SWITCH 
REGISTER AS REUUIREO. 



SA20a • THIS PROGRAM WILL REPONT VIA THE TELEPRINTER ALL 
DATA COLLECTEUt NO OTHER OPERATOR ACTION la Rt* 
QUIRED. 



OPERATING C0NDniQN3 

THE PROGRAM CHECKS FOR OPe^ATlNG CONDITIONS AT VAPIOUS 

POINTS WHILE RUNNING, IF TH£»E IS A HAKUWARE SWR THiiSt CONDITIONS 

CAN 9E CHANGED AND SET WHILE Tut PHUGRAM IS RUNNING, IF THE 

SOFTWARE 5WR IS IN USE, THEN THESE CONDITIONS MUST dt SET IN LOCATION 

176 BEFORE THE PORGRAM STARTS, 



Si/^15 

swia 

SWlJJ 

swia 
swii 

SW08 



HALT ON ERROR 

HALT AT END OF PASS 

DON'T PRINT ERROR MESSAGE 

TYPE ONLV IW DATA ERRORS 

NO RETRY ON ERROR, LOG HARO ERROR 

NO RECALIBRATION ON SEEK ERRORS 



SWl5-SWia CI) = SELtCT SQFT^^ARE SWITCH REGISTER 

NOTE? IF THERE IS A HARDWARE SiaiITCH REGISTER, AND THE OPERATOR 
■^ANTS THE SOFTWARE S^HCH REGISTER, PUT ALL SWITCHES UP CI) 
BEFORE STARTING THE PROGRAM AT THE INITIAL START AOQRESS, 

THE PROGRAM WILL PWINT A "ORIVECSJ" SELECTED CONFIRMATION 
MESSAGE THAT If WAS SUCCESSFUL IN FINDING AT LEAST ONE 
DRIVE READY (DRY) CONDITION ON AN OPERATOR SELECTED URIVE 
OR EITHER OR BOTH IF NO SELECTION ^AS MADE. THfc DRIVES 
CONFIRMED AS BEING SELtCTED 8Y THE PROGRAM MAY DIFFER 
FROM THAT SELECTED flY THE OPERATOR IF THE PROGRAM nETECTEO 
A DRIVE TO 8E NOT HEADY, 

IF HOWEVER THERE ARE NU DRIVES IN THE DRIVE READY CONDITION 

THE PROGRAM WILL TYPE "NO DRIVES READY" AND HALT, AS IT CAN'T f 

FUNCTION WITH NO DRIVES READY, WHEN THE REASON FOR ALL 
DRIVES TO 8E NUT READY IS FOUnU ANU CORRECTED, THE OPER- 
ATOR MAY PRESS CONTINUt ANO THE PROGRAM WILL 60 BACK TU 
"INITIAL START" OR HE MAY RELOAD THE STARTING ADDRESS 
HIMSELF, 

AS WELL AS "ORIVECS)" SELECTED THE PROGRAM WILL TYPE OUT 
THE TEST PARAMETERS SELECTED 0« DEFAULTED TO. IF NON- 
STANDARD TRACK AND/OR SECTOR ADDRESS LIMITS wtW£ SELECTED i 
CSEE SECTION 3,3.^ OF THIS DOCUMENT) THESE LIMITS WILL ALSO 1 
5E PRINTED OUT FOR VARIFICATIQN (?Y THE OPERATuR, 

2«^,-S ACTU & XXDP HOOKS 

THE PROGRAM HAS THE NECESSARY LOCATIONS SET UP FOR OPERATION UNDER 

ACTU AND XXOP OPERATIUN, THE RROGRaM LOOKS AT THE LOAOING MEDIA LOCATION 

AND IF IT CONTAINS THE NUMBER 10, INDICATING THE FLOPPY OISK LOADED 

THE PROGRAM, WILL TYPE THE FOLLOWING PROMPT MESSAGE » WAIT FOR 

A USER RESON3E5 



"CAUTION - IF YOU DESIRE 
REPLACE LQAO MEDIUM WUH 
THEN PRESS CONTINUE" 



TO TEST UNIT '£ 

A SCRATCH DISKETTE 



THUS, IF THE OPERATOR WISHES TO TEST DRIVE UNIT M, AFTER LOADING 
PROGRAM, HE REMOVES THE LIBRARY DISKETTE FROM DRIVE ^, INSERTS A 
SCRATCH DISKETTE INTO DRIVE 0, AND PRESSES THE 'CONTINUE' SWITCH 



THE 



2,5 PROGRAM DPTIONS 

THERE AR£ A CQUPL£ QF ^AYS THE RROtiRAri CAN BE SET UP TU 
RON FOR DPTIQNAL IKSTING, 



2.5.1 PSEUDO - SCOPE LOOP 

RY SETTING THt ADDRESS LIMITS IN QD AND OR FIRST TO ONE 

OF TWO TRACKS AND UR StCTQRS IT IS POSSIBLE TQ PRODUCE 

A FAIRLY TIGHT PSEUDO - SCOPE LOOP, 8Y RUNNING ONLY A 

TEST THAT DOES wKIT£ ONLY OR RtAD ONLY ITS POSSIBLE 

TO SCOPE SPECIFIC FUNCTIONS, I.E. FILL BUFFER, WRITE, READ, 

EMPTY BUFFER, 

2.5.2 DISKETTE COMPAfABILlTY 

TO CHECK FOR DATA TRANSFER COMSAT ABILITY BETWEEN DRIVE 
UNITS USE THE FOLLO^ilNli PROCEDURE, CIT IS ASSUMED THE 
SYSTEM HAS DUAL DRIVE RX31, IF NOT YOU MAY TEST COMPAT- 
AOILITY BETWEEN DIFFERENT RXU SYSTEMS 8Y RUNNING THE SAME 
TESTS ON 80TH,J 
THIS TEST INSURES PRQPtR HEAD ALIGNMENT, 

A, HAVE DISKETTES IN ttOTH DRIVES AND DRIVES READY, 

6, CLEAR THE UD/ID AND FIRST/LAST MEMORY LOCATION, fUH 
TOTAL DISKETTE TRANSFERS, 

C, LOAD THE INITIAL START ADQKESS CLOC 200) AND START 
THE PROGRAM RUNNING, 

D, SET LOCATION "DTESTP" FOR "DRIVE AND TEST CONDITIONS" ON 
8QTH DRIVES, ANY "P"ATT£RN OF DATA, "S»EQUENCE »l 
(INCRIMENT TRACKS, TQ INSURE ALL HEAD POSITIONS ARE ALIGNED) 
AND "T"EST 3 (WRITfc/READ CHECK), THIS WILL 

WRITE THEN READ AND VERIFY THE DATA QN BOTH DISKETTES. 

E, ALLOW THE PROGRAM TO RUN FUR AT LEAST I COMPLETE PASS, 

NOTE! IF RANDOM PATTERN i\0 OR 7) IS SELCTED YOU MUST HALT 
AT THE END UF THE FIRST PASS, AS AUPITIONAL 
PASSES CHANGES THE DATA AND YOU 
WILL GET DATA ERRORS WHEN YOU TRY TO REReAD,, 

TO HALT AT THE END OF PASS PUT SWl« UP CU WHEN 
"OPERATING CONDITIONS" ARE REQUESTED BY THfc PROGRAM, 

F, AFTER COMPLETION O*- THE PASS, PROGRAM HALTED. SWAP 
DISKETTES, AND AS YOU ONLY WANT TO READ VERIFY THE 
DATA, START THE PROGRAM AGAIN AT LOC 20i» tiNITIAL 
START) , 

G, WHEN REQUESTED SELECT THE SAME DRIVES, PATTERN, AND 
SEQUENCE, »UT SELELT TEST H [READ CHECK ONLY). 

H, ALLOtM THE PROGRAM TO RUN AS LONG AS YOU WISH TO VERIFY 
THAT DATA WRITTEN AND CHECKED ON ONE DRIVE CAN 8fc 
READ AND VERIFIED UN THE OTHER DRIVE, 



a. 5, 3 RXH TO RX8 COMPATAeiLlTY 

TO WRITE A DISKETTfe On THE RXU ANQ READ/VERIFY THE SAMfc DATA ON A 
RX8 PEQUIHES THE FOLUQwiNGJ 

A. SET UP LOCATION "UTESTP" Hili) WITH 0N£ UF THE 
FOLLOWING DATA PATTERNS 



') 



Pal 


10'S) 




P*S 


Cl'S) 




P-S 


uas) 


* 


Psb 


csia) 


* 



* note: if ONt OF THESE PATTERNS IS SELECTEO A MODIFICATION 

TO THE PROGt^AM MUST 8E MADE TO ALLOW THIS DATA TO BE READ ON 

A «X8 SYSTEM, 

THE MOOIFICATION IS IN THt "PAT125" RQUTEEN, TH£ TWO C2) LOCATIONS 

CONTAINING THE "COMB DATAttYTE" INSTRUCTION HUST 8F CHANGED 

TO TWO (2J nOP*-S (OCTAL ^miH^) 

B, SET IN "DTESTP" TEST 3 i<(HlCH wKL W«ITt ANO KfcAU CMtCK 
THE DATA THEREBY VERIFYING THE QUALITY UF THt DATA PRIOR 

TO THE DISKETTE Sl^AP, 

SET THE SEQUENCE TO I To INSURE THAT ALL TRACKS HAVE. aetN WKITTEN ON, 

C, HALF THE PROGRAM AT THE CUMPLETION OF ONE PASS, 

0, THt DISKETTE IS NOW READY TO 6E READ ON THE RX8 

SYSTEM^ SEE MD-8-DIRX9-«t FDR THE PROCEDURE TU READ THIS PISKETTE, 

TO READ A DISKETTE THAI WAS WRITTEN ON A RXd SYSTEM SET UP AS FOLLOwSl 

E, SET IN "OTESTP" THE DATA PATTERN THAT WAS USED BY THE 
RXS SYSTEM, CSEE NOTE UNDER SECTION A.J 

F, SET "OreSTP" FUR TEST 4 (READ CHECK ONLYJ ANU SEQUENCE 1 
TO CHECK ALL TRACKS, START THE PROGRAM, IT SHOULD RUN WITHOUT 

DATA ERRORS, ,' ' \ 



a. 6 



RUN TIME 



CHANGE SLIGHTLY FOW 



RUN TIME PER PASS D£P£N03 UPON NUMBER OF A FUNCTIONS IN 

THE TEST SELECTED AND THE TRACI^ SEQUENCE, 

EXAMPLES OF RUN TIMES fOLLOW, 

(THESE TIMES AWE FOR I DRIVE AND COMPLETE DISKETTE, MAXIMUM ID/OD, 

FIRST/LAST LIMITS, IF OPERATING ON 2 DRIVES OOUflLE THE TIME.) 

THESE TIMES ARE FOR A POP n/0S PROCESSOR ANP MaY 

A FASTER PROCESSOR, 

P T S 

7 «5 5 

7 7 4 

7 7 7 

b 3 <J 

7 3 I 

7 I I 



TEST SELECTION 



TIME/PASS 
3 MJN,3t3 SfcC 

MIN,a7 

MIN,23 

MIN.afe 

M1N,30 
51 



SfcC, 

stc, 
stc, 
stc, 
stc, 



NOTES DUE TO THE SLOW SPEED OF THE LSI U PROCESSOR, THE 
RUN TIME IS ABOUT OQUBLfe THAT LISTED ABOVE, TO SPEED UP THE 
OF THIS PROGRAM In THE LSI U YOU CAN CHANGE THE INTERLEAVE 
OF THE SECTORS, USED IN THE PROGRAM, TO DO THIS CHANUE THE 
CONTENTS OF LOCATION "THREE" F^OM OCTAL 3 TO OCTAL 5, 



RUNNING 
FACTOR, 



3.0 ERROR DETECTION 

3.1 PROGRAM DEFINITIONS 

ON MOST ERRORS THE PROGRAM WILL TYPE OUT THE CONTENTS OF 
"STATUS A" AND "STATUS 8"e 

STATUS A IS THE CONTENTS OF THE RXES (ERROR ANO STATUS REGISTER) 

AT THE TIME THE ERRUR IS DETECTED. IT SHOWS THE CRC.PAK,ETC, ERRORS. 

STATUS 8 IS THE "DEFINITIVE ERt^OR CODES" THAT THE RXdJil DETECTED, 
THAT MAY HAVE CAUSED THE ERROR CONDITION, THESE ERROR COOES ARE 
DEFINED IN SECTION 3,3, 



3,1,1 



THE PROGRAM HA3 DEI^INED THE FOLLOWING AS ERRORS, 
WRITE ERROR 



A WRITE ERROR IS A RETRIED READ ERROR IF THE DATA BEING 
READ IS OF UNKNOWN QUALITY CTMt DATA READ IS BEING READ 
FOR THE FIRST TIME AFTER A WRITE FUNCTION) 

1,1,2 READ CCRC) ERROR 



A READ ERROR IS A RETRIED READ ERROR WHERE THE QUALITY OF 
THE DATA BEING READ IS KNOWN GOOD. CTM£ DATA MAS SEEN 
READ CORRECTLY SOME TIME PREVIOUSLY.) 



5.1,3 CRC AND DATA tWrtOR 

3,1,<I NO CRC ERROR 8uT DATA tRNOR 

3,1.5 CRC ERROR BUT NO DATA tRROR 

THE ABOVE THREt ERRORS ARE OETtCTEO WHEN THE PROGRAM IS 
VERIFylNG THE IJATA REAU OFF Trit DISKETTE AGAINST THE DATA 
THAT SHOUtD HAVE QEtN REAO, 

UPON A NON-COMPARISON THE PROGRAM TYPES OUT THE "BYTE" 
NUMBER IN THE SECTOR, THE DATA READ FROM THE DISKETTE 
"BAO" AND THE EXPECTED DATA "QUOD". 

BYTE« SAD GOOD 
(THE DATA PATTERNS ARE FORMATTED AS SHOWNJ 

a (TRACK address; BITS fc - ^) 
1 (SECTOR ADDRESS; SITS 4 - 0D 

BYTES a THROUGH 125 CONTAIN THE SELECTED "P"ATItRN, 

lib (THE SUM OF ALt 9YTES - 125) 

127 (THE NEGATIVE UF 2 TIMES BYTE 126) 

THF PROGRAM DETECTS A CHECKSUM ERROR !3Y SUMMING AEL THE 
DATA READ FROM THE DISKETTE AND COMPARING TuAT SUM JO 0, 

AT THE END OF THE DATA ERROR TTPEUUT THE PROGRAM TYPES OUT IF 

THE CHECK SUM ACCUMULATED IS "G0Oa"QR HAD "ERKORS", 

IF BYTES OR I HAVE DATA ERRORS THE OPERATOR MUST CHECK THE RESULTS 

OF THE CHECK SUM. IF If IS ALSU SAD, THEN THERE /(AS A TRUE UATA ERROR, 

IF THE CEHCK SUM IS GOQD^THEN IT MI&HT BE THAT THfe HEAD IS NOT 

OVER THE TRACK EXPECTED, AND THERE IS A POSITIONING EHROR, 

3,l,b SEEK ERROR 

A SEEK ERROR IS OEFINgij AS NOT A CRC AND NOT A PARI FY ERROR. 

A PROGRAMED RECALIBRATE IS ISSUED TO TRY TO CORRECT EACH SEEK ERROR. 

3,1,7 PARITY ERROR 

A PARITY ERROR RESULTS FROM AN INCORRECT TRANSFER OF A 
COMMAND WORD FROM THE KXll INTERFACE TO THE RXi^l MICRO- 
PROCESSOR CONTROLLER* 



3,2 



DEFINITIVE ERROR COOES 



THE RX01 MlcROCONTWOLLt« HAS OfcFINfcO TH£ ERROH COOES AND 
MEANINGS WHICH ARt AVAILABLE TO THfc PROGRAM QY ISSUING 
COMMAND #7 "READ TH£ S-COOE STATUS REGISTER", 

A DEFINITIVE gkROR COOt R£PREStNTS [WHERE] WITHIN A ^UNC- 
TION AN ERROR WAS DETECTED, 

THE FOLLOWING ARE THE DEFINITIVE ERROR COOES AND MEANINGS! 



00 
10 

20 
30 

a0 
5d 

60 

Id 

100 

110 

120 

130 
140 

150 
160 
170 
200 
210 



NO ERRO 
DRIVE 
DRIVE I 
HOME FO 
TRIED T 
HOME WA 
SELF DI 
DESIRED 
WRITE P 
MORE TH 
A PREAM 
PREAMBL 
CRC ERR 
GOOD HE 
lOAM NO 
DATA AM 
DATA CR 
ALL I'AR 



FAILED 

FAILED 
UNO WHEN 
ACCESS 
S FOUND 
AGNOSTIC 

SECTOR 
ROTECr E 
AN «0US 
BLE CUJL 
E FOUND 
0» ON SU 
ADER INO 
T FOUND 

NOT >-0U 
C ERROR 
ITY E«RO 



TO SEE HOME FROM INITIALIZE 
TO SEE HOME FROM INITIALIZE 

STEPPING OUT 10 TRACKS FROM INIT 

A TRACK GREATER THAN /TtOECIMALJ 
BEFORE DESIRED TRACK 

ERRQW 
NOT FOUND AFTER SAMPLING 5i HEADERS 
RROR 

AND NO SEP CLOCK DETECTED 
NOT BE FOUND 

BUT NO ID MARO FOUND IN TIME 
PPOSIULY GOOD HEADER 

CRC ERROR) BUT TRACK COMPAKE ERROR 
IN TOME 
NO IN TIME 



RS 



5g3 UNEXPECTED OR MISSING ERROR CONDITIONS 

3,3,1 MISSING OD MARK 

AN ERROR WHEN THE PROGRAM WROTE DELETED DATA INFORMATION 
BUT NO DELETED DATA MARK wAS DETECTED WHEN THE DATA WAS 
READ, 



■■II 
■IP 



3,3,2 UNEXPECTED DO MARK 

AN ERROR WHEN A DELETED DATA MARK IS DETECTED BUT NO 
DELETED DATA WAS WRiTTtN, 



3.3,i NO INTERRUPT QN DQN£ 

THE INTERKUPT tNA8U£ 6iT WAS StT AND THE DOnE FuAfa «ftS 
SET BUT NO INTERRUPT OCCURREIJ, 



3, 3, a UNKNQ,.jN INTERRUPT 

if an interrupt occurs frqh any other device whiue thia 
proeham is running it wlul hall at th£ interrupt vector 
uocation. 

IF AN INTERRUPT OCCURS ON InTEK»<UPT VECTOR LOCATION db4 
CRXin» AND THERE IS NO ERROR, DONE, OR ERROR STATUS 
CONDITION SET, THEN IT WlUL BE TAGGED AS AN UnKNOwN 
INTERRUPT, 



3,4 POWER FAILURE 

THE PROGRAM TESTS FQR TwO 
POWER LOSS AND RXn PQwtR 
OF THE DRIVES, 



TYPES OH POWER 
LOSS RESULTING 



FAILURE, TuTAL SYSTEM 
IN A WECALlBRATION 



%5 



THE TOTAL SYSTEM POwER FAILURE IS OETtClED dY ThE "SYSMAC" 
SUBROUTINE ,$PUwEft, »^HfcN THE PUwER IS DETECTED TO Bt GUINb 
DOWN, THE REGISTERS ARfc SANEO. WHEN THE POWER COMES «ACK UP 
THE REGISTERS ARE HtSTUREO AND THE MESSAGE "POWER" lb PRINTED, 
THE PROGRAM THEN AU TUM AT IC ALLY DOES A RESTART, 

LOSS OF POWER IN THE HKH CAUSES A REC ALI3RATIUN UF ALL 
DRIVES, WHEN THIS HAPPENS, THE "INIT DONE" alT IS SfeT IN THE 
THE RK£3 HEGISFER ALOnG WITH THE NORMAL "DONE" FLAG, AT tACH 
INTERRUPT THE PROGRAM TESTS FOR InIT DONE, IF IT IS f-OUNU 
TRUE, The FUNCTION wAS NOT COMPLETED AND A POwER LOSS MUST 
HAVE BEEN DETECTED, WHtN THIS HAPPENS ThE PROGRAM TYPES 
OUT "RXU POWER" AND D0£5 AN AUTOMATIC RESTART, 

IF THERE ARE RgPEATEO, NOTHING ELSE HAPPENS BUT, RXU FQWfcR 
MESSAGES THE INl^ DONE FLAG MIGHT BE STUCK ON, 

PROGRAM HUNG 



jmtim 



THERE ARE MANY PLACES WHERE THE PROGRAM MUST WAIT FOR AN OPERATION 
TO BE COMPLETED IN THE RX01, THESE ARE WAITING FOR THE 
"DONE" FLAG TO INOICATt A FUNCriON IS COMPLETED, OR WAITING 

FUR A Transfer request "TR" flag to send or receive the next 

BYTE of information. U THE RXU DOES NOT COME SACK wiTH EITHER 
OR 80TH OF THESE FLAGS THE PROGRAM wOUUD HANG UP, 

TO INHIBIT THIS FROM HAPPENING THERE ARE TWO SUBROUTINES USED 
TO CHECK FOR THESE TWO FLAGS. 



THE "OONECK" LOOKS FOR THE DONE FLAG AND IF IT IS NOT SEEN 
WITHIN A SPECIFIC TIME THE "T£ST HUNG" MESSAGE IS PRINTED 
AND THE PROGRAM HALTS, IN REGISTER 3 (1777033 IS THE RETURN 
ADDRESS OF THE TEST ThaT IS WAITING FOR THE DONE FLAG, 



"TRCK" LOOKS FOR THE "TR" FtAGa IF IT IS NOT SfeEN WITHIN A 
SPECIFIC TIME IT ALSO POINTS TH£ "TEST HUNG" MfeSSAGt AND 
HALTS9 IN THE SP tniim) IS THE RETURN ADDRESS pF THE 
TEST WAITING FOR THE TW FLAG« 

THE WAITING TIME FOR THE TWO FLAGS DEPENDS UPON Tmf HOST PROCESSOR AS 
INDICATED 9EL0WI 



"DONE" WAIT 



'TR" WAIT 



U/45 BIPOL la SEC, 

11/05 CORE b? SEC« 

11/-SI5 eiPOL «4a SfcCs 

li/05 CORfe a SEC« 



4,0 ERROR REPORTING 



5t0 



ALL ERRORS DETECTED WILL 8E REPORTED I? Swi3 s id FOf< 
OPERATING CONDITIONS^ IF Swi^ s i THEN pNLV 10 DATA 
ERRORS FOR % SECTOR WIt.L 6E REPORTED^ AND A TOTAL OF 
DATA ERRORS FOR THAT StCTOR WILL BE REPORTED AT TmE feNU 
OF THE SECTOR, 

THE ENO OF PASS INDICATOR TYPED, ALSO INDICATES wEITHfeR ANY ERRORS 
OCCURED DURRING THAT PASS^ IF THERE WERE NO ERRORS TmEN A "*" 
IS PRINTED. IF THERE wERE ERRORS THEN A "»" IS PRlNTtD. 
THE TOTAL ACCUMULATED fcRRORS ANQ SYSTEMS OPERATION lb 
REPORTED 6Y THE "ERROR DUMP" PROGRAM, 

HALTS 



THERE ARE VARIOUS HALT LOCATIONS THROUGHOUT Tnt PROGRAM, 
SOME ARE THE RESULTS Or- "HARD" ERRORS OTHERi, ARt wAlTING FOR 
INTERVENTION, THEY ARE LISTED bELOWi 



HALT # 



TYPE 



DEFINITION 



HLTIS 

NLT3I 

HLT4S 

HL^St 

HLT6S 

HLT7S 

HLT10S 

HLTIll 

NLTias 

HLTI3? 

HLTHS 

HLT15I 

HLT16I 

HLT17I 

HLTa0S 

HLT21I 

MAlNDEC^-li^DZR^A^ 

D|R^AE«PU 



NO ERRUR ICAUTI 

ERROR lERROR 

ERROR IHARD 

ERROR INO ON 

ERROR ISW15 

ERROR ISW15 

ERROR ISWI5 

ERROR IHARD 

ERROR ISwiS 

ERROR ISWiS 

ERROR ISWiS 

ERROR ISW15 

NO ERROR fHALT 

NO ERROR IHALT 

ERROR IPROGR 

ERROR IPROGR 
MACYU 27(732) 20«SEP 



ON « LOAD MkOlUM ON UNIT 
S FOUND ON RECAL FUNCTIONS 
PARITY ERRORS 

Ives ready 

set on parity error 

set on seek error 

set on crc generator error (no dates error) 

crc generator trhor cno data errors) 

set on data crc error 

set on missing detected data error 

SET ON DATA nO CRC ERROR 

SET ON MISSING INTERRUPT AT DONE 

AT END OF PASS 

AT END OF ERRuR UU^P 

AM HUNG WAITING r-QR DONE 

AM HUNG WAITING FOR TR FLAG 

»76 15l«b PAGE 2 



«NLIST CNO|MD|MC 

«LIST ME 

tENAttu ABSfAMA 

«MCALL ,HEAOER,«EQUAT,,SETUP,t$TYPFj«$TYPOCT|,*N£AD 



,MCALl. ,SPUWtS,STAHSMSDB2D,,$SB2U,,$5&VE,,$TKAP,GETSWR 



9 

10 
11 

la 

13 

la 

15 
16 
17 

la 

19 
20 
21 
22 
23 

2a 

25 
26 
27 
28 
29 
30 
31 
32 
33 

3a 

35 
36 
37 
38 
39 
ae 
ai 
«2 
as 

«a 
as 
a6 
a7 

a4 

50 
5l 
b2 
53 

5a 

55 
56 



000001 
160000 



0000U 
330012 
000015 
000200 
177776 



.TITLE MAlNDtC«ll-UZHXA-»E 

|«C0PYR1GHT (CJ MARCH 21,|976 

MDIGITAL EQUIPMENT COHP, 

J*MAYNAftD, MA;iS, 0l7!3a 

I* 

MPROGRAM BY OAVIO L AOAMS 

M 

MTHIS PROGRAM 1/«AS ASStMBLEO USING THE PDP-ll MAINDEC SYSMAC 

MPACKAGE (MAINOEC-ll-UZQAC-C03,MAR 21, 1976, 

M 

STNbI 

SSWR8lb0000 MHAUT on error, loop on test, INhl&n ERROR TYpQUT 

jCnPYRIGHT ICJ 19?i),1976 

JTHIS SOFTwAHt IS FUWNISHEO UNDER A LICENSE FQR USE ONLY 
;0N A SINULt COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
ITHE INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS 
;SOFTi^ARE, OK ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED 
JUR OTHeRwiSfe MADE AVAILABLE TO ANY OTMfcR PERSON 
.•EXCEPT FOR USt ON SUCH SYSTEM AND TO ONE WHO AGREES TO 
; THESE LICENSE TERMS. TITLE TO OWNERSHIP OF THE 
fSOFTwARE SMALL AT ALL TIMES REMAIN IN DEC. 

jTHt INFOMATIQN IN THIS DOCUMENT IS SUBJECT TO CHANGE 
^WITHOUT NOTlCt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
;BY OiGITAL tQUlPMENT CORPORATION, 

;i3EC ASSUMES NU RESPONSIBILITY FOR THE USE OR RELIABILITY 
lOF ITS SOFTWAWE ON EQUIPMENT wmICH IS nOT SUPPLIED BY 
fDEC, 



.SBTTL BASIC PEFINlTIUNS 



MINITIAL AUDRtSS Of 
STACKS 1200 
,fcOUlV EMT,EHKOH 
,E0UIV lOT.SCUPE 



THE STACK POINTER «** 1200 *«* 



j;BASIC DEFINITION OF ERROR CALL 
JJHASIC DEFINITION OF SCOPE CALL 



^MISCELLANEOUS DEFINITIONS 



HTs 


11 


LFa 


12 


CRa 


15 


CNLFa 


2130 


PSa 


17777b 


.EUUIV 


PS,PSw 



;;C0OE FOR HORIZONTAL TAB 

?,'COUE FOR LINE FEED 

JJCOUE FOH CARRIAbE RETURN 

nCODE FOR CARRIAGE RETURN-LINE FEEO 

UPROCESSOR STATUS WORD 



MAINUEC-11«DZPXA-E MACYll 27(7323 2w3-SEP-7b I5:ab PAbE 3 
DZRXAE.Pll BASIC OEFINITIUNS 

sTKLMTa mn** 

PIRQa 177772 
DSWRs 177570 
DQiSPa 17757U 



57 


17777a 


58 


177772 


59 


177570 


60 


177570 


61 




62 




63 


000000 


6a 


030031 


65 


000002 


66 


300003 


67 


000004 


68 


000005 


69 


000006 


70 


000007 


71 




72 




73 




7a 




75 


300003 


76 


000040 


77 


000100 


76 


000140 


79 


000200 


80 


000240 


81 


000300 


82 


000340 


63 




84 




85 


100000 


66 


040000 


87 


020000 


88 


01000,1 


89 


004000 


90 


002000 


91 


001000 


92 


000400 


93 


000200 


9a 


000100 


95 


000040 


96 


000020 


97 


020010 


98 


000004 


99 


000002 


100 


000001 


1(^1 




102 




103 




104 




105 




106 




107 




108 




109 




110 




lU 




112 





nSTACK LIMIT REGISTER 
HPROGRAM INTERRUPT REQUEST REGISTER 
HHARUWARE SWITCH REGISTER 
nHAROWARt DISPLAY REGISTER 



J*GENERAL PUPPOSfc RtblSTER DEFINITIONS 

JJGENERAL REGISTER 
;, 'GENERAL REGISTER 
MGENERAL REGISTER 
fiGENERAL REGISTER 
IIGENERAL REGISTER 
{.•GENERAL REGISTER 
MGENERAL REGISTER 
nGENCRAL REGISTER 
nSTACK POINTER 
J, "PROGRAM COUNTER 



MPRIORITY LEVEL 

MPRIORITY LEVEL 1 

IfPRIORITY LEVEL 2 

JIPRIORITY LEVEL 3 

MPRIORITY LEVEL 4 

MPRIORITY LEVEL 5 

MPRIORITY LEVEL 6 

IIPRIORITY LEVEL, 7 

SWITCH DEFINITIONS 



R0a 


%0 


R13 


%1 


R2a 


%2 


Ria 


X3 


R4a 


3(4 


R5» 


%5 


Rb» 


X6 


R7S 


%7 


,EQUIV 


R6,SP 


•EUUIV 


R7,PC 


MPRIORITY LEVEL 01 


PR0a 





PRlB 


40 


PR2a 


100 


PR38 


140 


PR4s 


200 


PRbs 


240 


PR6a 


300 


PR7s 


340 


M"SWITCH REGISTER 


Swl5» 


100000 


SW148 


40000 


SW13" 


20000 


Swl2" 


10000 


SwUa 


4000 


SWl0a 


2000 


Sw09a 


1000 


8)1088 


400 


SW07a 


200 


SW06a 


100 


Sw05a 


40 


SW04a 


20 


SW03a 


10 


SW02S 


4 


SW01a 


a 


SW008 


1 


.EUUIV 


SW09,SW9 


,EQUIV 


Sw08,SW8 


.EQUXV 


SW07,SW7 


.EQUIV 


SW06,SW6 


.EQUIV 


SW05,SW5 


.EUUIV 


Sw04,SWa 


•EQUIV 


SW03,SW3 


.EQUIV 


SW02,SW2 


.EQUIV 


SW01,SW1 


.EQUIV 


SW00,SM0 



»*DATA BIT DEFINITIONS (BIT00 TO BIT15) 



H^lN0eC«U«DZR5(A*.g MACYll 27(732) 
OER^AEsPli BASIC 0EFIN|TIUNS 



ia"SiP«7fe iBlUb PABt 



U3 


100000 


lU 


040000 


lis 


020000 


lU 


010000 


li7 


004000 


lis 


002000 


U9 


001000 


120 


000400 


lai 


000200 


122 


000100 


123 


000040 


124 


000020 


125 


000010 


126 


000004 


127 


000002 


128 


000001 


129 




130 




131 




132 




133 




134 




135 




136 




137 




138 




139 




140 




I'H 


000004 


H2 


000010 


H3 


0000ia 


144 


000014 


145 


000014 


146 


300020 


H7 


000024 


H8 


000030 


149 


000034 


150 


000060 


151 


000064 


152 


0*30240 


153 




154 




155 




156 




\b7 




158 


000013 


159 


000033 


160 


000017 


Ibl 


000040 


lb2 


000101 


163 


000103 


ie»4 


000105 


165 


000107 


166 


000115 


167 


340001 


168 


000200 



BITlSs 


100000 


9IT148 


40000 




8IT13S 


20000 




BITlSa 


10000 




BITllB 


4000 




BIT10a 


2000 




8IT09S 


1000 




BIT088 


400 




BIT07a 


200 




aiT06a 


100 




BITBSs 


40 




aiT04s 


20 




8IT038 


10 




8IT02a 


4 




SIT01S 


2 




eiT00a 


1 




,eauiv 


SIT09 


8IT9 


.EQUIV 


0IT08 


BITtt 


•cQUIV 


8IT07 


HIT? 


•feouiv 


BIT06 


BIT6 


,&uuiv 


81705 


BITS 


.EQUIV 


B1T04 


BIT4 


.EQUIV 


BIT03 


BITS 


.EQUIV 


BIT02 


BITa 


.fcUUlV 


8IT01 


BITl 


.EQUIV 


8IT00 


BiT0 


MBASIC 


"CPU" 


TRAP 


EHHVECa 


4 




R6SVEC" 


10 




TBiTVeC 


= 14 




Tt^TVECa 


14 




BPrvECa 


14 




lOTVECs 


20 




PwHvecs 


2a 




EMTVECa 


30 




TRAPVEC 


834 




TKVECs 


60 




TPVtCa 


64 




PIHQVEC 


s240 





TRAP VfeCTOR ADUKE58ES 

IITIME OUT AND OTHER ERRORS 
MRESERVEO AND ILLEGAL INSTRUCTIONS 
n"T" BIT 

;;trac£ trap 

nHREAKPOINT trap CBPT) 

hinput/output trap (IOT) a*SCOPE** 

MPQWER FAIL 

IJEMULATOR trap (EMT) **eRROR«* 

n"THAP" TRAP 

MTTY KEYBOARD VECTOR 

IJTTY PRINTER VECTOR 

IIPROGRAM INTERRUPT REQUEST VECTOR 



jspechl equates 



RD0STAT 


813 


RQISTAT 


833 


RUER 


B17 


DONEBir 


840 


FBIE 


al0l 


EBIt 


slP!3 


WRTIE 


aiea 


RDIE 


alP)7 


WTDOIt 


ail5 


RECAL 


B40001 


PRa 


8|?0^ 



MAINUEC-11«DZRXA«E MACYll 27(732) 
DZHXAE^Pll BASIC DEFINITIUNS 



20-SEP-76 i5:«b PAtt 5 



169 




000340 


170 




000000 


171 






172 




000000 


173 


000000 


0000v)id 000000 


174 






175 




000024 


176 


000024 


01376« 


177 


000026 


000340 


178 






179 




000034 


180 


000034 


013716 


181 


000036 


000340 


183 






183 




000046 


184 


000046 


011130 


185 






186 




000052 


187 


000052 


000000 


188 






189 




000174 


190 


000174 


000000 


191 


000176 


000000 


192 






193 






194 






195 






196 






197 






198 






199 






200 






201 






202 






203 






204 






205 






206 






207 






208 






209 




000200 


210 


000200 


000402 


211 


000202 


000403 


212 


000204 


000404 


213 


000206 


000137 001220 


214 


000212 


000137 002700 


215 


000216 


300137 (521062 


216 






217 






216 






219 






220 






221 






222 






223 






224 







PR7 
OPEN 


Bia'6 

a^ 


,80 


,MORU y9,0 


,824 


SPWHDN 

3a0 


,"34 


STRAP 
3«0 


*aa6 


LOGICAL 


.«52 


,iMORU k3 


.817a 

OISPREG! 
3WREGJ 







^ADDRESS OF TRAP SERVICE 



;actii eop hOOK 



JSTARTING AOORfcSSES 



ISI 
2SI 
3SI 



INITIAL START 8200 
RESTART agaa 
ERROR REPORT s204 



BR IS 

BR 29 
BR 35 
JHP SA200 
JMP RESTART 
JMP tRUUMP 



/CLEARS ALL ERROR LOGS, RESETS COUNTERS, AND ALLOwS FOR 
/SELECTION OF DRIVES ANO TEST CONDITIONS 

/USES PREVIOUS INITIAL START DRIVES AND TEST 
/SELECTION AND CONTINUES TO ACCUMULATE STATISTICAL DATA 

/PRINTS OUT ALL RUN AND ERROR CONDITIONS 
/ACUMULATED OVER THE RUN OF THE PROGRAM, 



lOPERATOR SELECTED CONDITIONS 

IRE8TART PROGRAM wITH PREVIOUS CONDITIONS 

^STATISTICAL ERROR PRINT OUT 



rTHE FOLLOWING LOCATIONS "OD" r "ID" , "FIRST" , AND "LAST" 

IMAY BE CHANGED BY THE OPERATOR MANUALLY HOWEVER FOLLOWING THESE RESTRICTIONS, 

J (IF THESE LOCATIONS ARE LEFT CLEARED, MAX AND MIN VALUES ARE ASSUMED) 

I 

I U OtFINITATIONSi 



OZRXSE.PU BASIC OEFiNiTfyNS 
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225 
22fe 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
210 
2«l 
2«2 
2«3 
2«4 
2«5 
2«6 
2«7 
2<t6 
2^9 
250 
251 
252 
253 
254 
255 
25b 
257 
258 
259 
260 
2«'i 
262 
263 
26a 
265 
266 
267 
268 
269 
270 
271 
2^2 
273 
274 
275 
276 
277 
278 
279 
260 



OUSAUpRt^S OF TRACK AT UUTTER OIAHETEH (HIN VALUEasa) 
lOaADDPtSb OF TRACK ^T INNER OIAMfcTER (MAX VALUEsUa [OCTAL] J 
I^IWSTsADDReSS OF FIRST SECTOR OF TRACK CMIN VALuEsU 
UASTsAODRESS OF LAST SECTOR OF TRACK [MAX VALUEa32 COCTALJ) 

a, LOCATIONS! 

TRACKS LOC, 1200 BITS ia-----8 6»-«-»0 
ID 00 

sectors loc» 1202 bits 12- — — s 4 — — -0 
last first 

3» restrictions: 

the contents of "od" must 8e «« the contents of "id" 
the contents of first must be <sa the contents of "last" 



001200 

001200 0003PI0 

031201 

001202 000000 



,31500 

00! 

luaOO+l 
FIHSTI 
LASTsF INST+I 



J ;******«*********» ***************** 



«!lit«^«««riiiftftt»«t«««i!r««i««fttir«rA 



ITHE NtXT ^OHU IS THE LOCATION OF THE "INTERRUPT VECTOR" AOORESS 

;IF The HARDWARE IS JUMPERED FOR OTHER THAN STANDARD 1264) VECTOR 

JAODRESS, THtN LOAD INTO THIS LOCATION THE NEW VECTOR ADDRESS, 

I 

;IF This ADDRESS IS INCORRECT (DOES NOT MATCH THE HARDWARE) THE 

{PROGRAM WILL HALT AT THE VECTOR ADDRESS THE HARDWARE IS JUMPERED 

{TO, AS ALL UTHfcR VECTOR ADDRESSES wIlL HAVE HALT6 IN THEM, 

I 

{*****a«**««***«!i,*«tft*A*4*»**sN0TE*******ft«*ft****ft*a«***ft**Aft**«« 

{ 

{THE INTfcRRUPT VECTOR ADDRESS CAN NOT BE SET FOR ADURtSSES ei00 

ITHRU 243, 63 THESE ADDRtSS ARE USED l?Y TMg PROGRAM 



001204 000264 



INTVEC! 264 



ikAft«>A«t«i««A««*»«ftft 



THE FOLLOWING TWO WORDS CONTAIN THE DEVICE CODES FOR 

The rxu iinterface registers 

rxcs a command status register 

rxoa a data buffer register (used at various times for!) 

crxta b track address) 

crxsa b sector address) 

CRXES a fcKROR STATUS) 
IF THE RXU SYSTEM UNDER TEST IS JUMPERED FOR REGISTtR 
ADORtSSES OTHER THAN STANDARD! RXCS s 177170 

RXDd a 177172 



MAINPEC-U-.DZRXA-E MACVll 27(732) 
DZRX*E,P11 BASIC DEFINITIONS 

291 
282 
283 
284 
285 
286 
287 
288 
289 

290 001206 177170 

291 301210 177172 
292 

293 
294 
295 
296 
297 
298 
299 

im 

301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
3U 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 



20-SEP-76 15146 PAUt 7 



{PLACE IN THtSt TWO WORDS THE CORRESPONDING NEW ADDRESSES FOR 
{THE REGISTERS. THE PROGRAM wiLL TYPE OUT THE REGISTER 
{ADDRESSES FOR VERIFICATION BY THE OPERATOR. IF THE ADDRESSES 
{ARE INCORRECT (I,E, - DON'T MATCH THE HARDWARE) AND THE PROGRAM 
{IS RUN WITH TH6 INCORRECT ADDRESSES, A 'HUNG* CONDITION WILL BE 
iREtPORTEO AND THE PROGRAM WILL 'MALT' AS THE RXU WiLL NOT BE 
{ABLE TO RESPOND TO COMMANDS, 

{{****A***«t*****ft**ft***aft«t*«*****jl,*64ft**j»ft^j^S,*j>^**^*<j44ft4,5»^Sj,ftj>^* 

RXCS! l77Uia 

RXDB! U71/2 



BIT ASSIGNMtNT IN THE RXCS REGISTER. 



KEY! R - READ ONLY fllT 


W « WRITt ONLY BIT 


15 - 


R «■ ERROR FLAG 


la - 


W - INITIALIZE CRECALiaRATE) 


13 - 




TO 


NOT USED 


8 - 




7 - 


R - TRANSFER REQUEST (TR) FLAG 


b - 


R/W - INTERUPT ENABLE 


5 - 


R - DONE FLAG 


4 - 


W - UNIT SELECT 


3 - 


W - FUNCTION 


2 - 


W - FUNCTION 


1 - 


W - FUNCTION 


~ 


W - GO 



FUNCTION C0UE3! 



+ 00 8 FILL BUFFER 

2 * GO a EMPTY BUFFER 

« * GO a WRITE SECTOR 

6 •* GO 8 READ SECTOR 

10 (NOT USED) 

12 ♦ GO a READ STATUS "A" 

14 * GO 8 WRITE DELETED DATA 

16 ♦ GO a READ STATUS «B" (COOES) 



THE FOLLOWING BIT ASSIGNMENTS REPRESENTES THE STATUS AT THE END OF 
FUNCTION (EXCEPT FUNCTION "READ STATUS 8") DISPLAYED IN THE 
RX DATA BUFFER (RXOB), 



15 

TO 



NOT USED 



7 - SELECTED DRIVE READY * 

6 « DELETED DATA 

5 « 

4 « 

3 ■» WRITE PROTECT ERROR (WHEN AVAILABLE) 

2 « INITIALIZE DONE ** 



00iaifl 177570 
00l2i6 177570 
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337 
33a 
35«J 
3<»0 
3«i 
3«2 
3«3 

3<ia 

3«5 
3«J6 
3^7 
3«8 
3'»9 
350 
351 
352 
353 

35a 

355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
360 
381 
362 
383 
384 
365 
386 
3«7 
388 
389 
390 

391 

392 



20»SEP-76 l5S4b PABE 



1 » PAKITV EH«OR 
» CHC ERROR 

ft VISIBLE UNLY IF THE FUNCTION WAS A #12 "READ STATUS A« 

** VlSIBLt ONLV AFTER AN INITIALIZE CKEY3 OR tPROGRAMMEOJ s^AS ISSUED, 



OTtSTPI 

SWR: 

DISPUAYJ 



,WORU Id 
,WQRU OSWR 
,i^O«U 00I5P 



JTEST SELECTION WORD 
JAD0RE3S OF SWITCH REGISTER 
J ADDRESS OF DISPLAY REGISTER 



i(i«**ft*«**«ni!****ft********* 



***************** 



ft ft A « « « A * ft 4i « * !>r * 



ISTART OF OPERATOR SELECTABLE TEST, DATA PATTERNS, AND DRIVE UNIT CONDITIONS 
fSET THE TEST CONDITIONS WANTED COR LEAVE 0) IN LOCATION CALLED 
r'OTESTP" CLOC. l2l2Jr BEFORE STARTING THE PROGRAM, WHEN THE PROGRAM 
ISTARTS IT WILL TYPE OUT THE TEST CONDITIONS IT IS OPtRATIMG UNDER. 

; 

ISWITCH REGlSTfcR BITS 

; 

f 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 

f Ul U0 NOT USED DPPPTT TSS5 

t 

f Ul SELtCT DRIVE UNIT 1 

I U0 SELECT DRIVE UNIT 

IIF NEITHER URIVE IS SPECIFIED, PROGRAM WILL SELECT ALL DRIVES 

I THAT ARE READY 

t 

t D a DELETED DATA FUNCTIONS 

IIF THIS SWITCH IS ON ALL READ AND WRITE FUNCTIONS WILL BE IN THE 

lOELETliD DATA MODE 

I 

I 

f P a DATA PATTERN SELECTION 

I DO PATTERN 7 (RANDOM) 

; 1 ZfcROS 

I 2 ONtS 

J 3 FLOATING ZERO 

I 4 FLOATING ONE 

; 5 125 
; b SI** 

f 7 RANDOK 

t T 8 FUNCTIONAL TESTS 

I DO TEST 7 (WRITE/READ/HEAU CHECK) 

t I WRITE ONLY 

; a WHITE/READ 

I 3 WRITE/READ CHECK 

J 4 READ CHECK ONLY 

I 5 READ ONLY 

J b WRITE/READ CHECK ON ALTERNATE DRIVES 

; 7 WRITE/READ/READ CHECK * 

J * NUTt: THt URSr HALF OF TEST 7 FORCES THE TRACK SEQUENCE 
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393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
406 
409 
410 
411 
412 
413 
414 
415 
416 
417 
416 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 



/ READ CHECK FUNCTIONS, 



rTO INCRlHgNT UP THROUGH ALL THE TRACKS DOING WRITE 

IThIS VERIFIES THAT ALL THE TRACKS ARE ACCESSABLE, 

JTHE SECOND HALF OF THE PASS WILL USE THE SEQUENCE SELECTED BY THE 

;OPtRATOR AS INDICATfeO BELOW, AND ONLY READ CHECK THE DATA JUST WRITTEN. 

iTHlS VERIFItS THAT THE DATA CAN BE READ FROM A TRACK, AFTER THE HEAD HAS SEEN 

IMOVEU AWAY fROM AND BACK TO THAT TRACK, AT THE COMPLETION OF TnE PASS 

ITHE DELETEi) DATA HIT IN TEST CONDITIONS IS COMPLEMtNTED AND THE NEXT 

;PaSS WILL Bfc RUN UNDER THIS NEw CONDITION, 



f s « 




TRACK 


SEQUENCING 






1 




DO SEQUENCE 7 (RAND 
INCREMENT 




2 




DECREMENT 








INCREMENT/DECREMENT 








BOUNCE 








DECREASING BOUNCE 








STROBE 








RANDOM 



J I *****«***«***« 



************** 



*************** 



ISET THE OPERATING CONDITIONS IN THE SWITCH REGISTER (HARDWARE), 

fOR THE SOFTWARE SWITCH REGISTER (LOC, 17b) BEFORE STARTING THE PROGRAM, 

; 

;SWITCHES DO THE FOLLOWING WHEN SET TO "l", 
t 

SHALT ON ERROR 

SHALT AT END OF TEST 

sOON'T PRINT ERROR MESSAGE 

aTYPE ONLY 10 DATA ERRORS 

aNO RETRY ON ERROR, LOG HARD ERROR 

BNU RECALIBRATION ON SEEK ERRORS 
8W0 "SELECT SOFTWARE SWITCH REGISTER 



} Sw 




1 SW 




; sw 




; Sw 




1 SW 




; sw 


a 


; SW15 



001220 
001222 
001230 
001234 
001240 
001244 
001246 
001252 
001260 
001266 
001270 
001272 
001274 
001302 



n*****ft**A*******************« 



RESET 



012737 177570 

012706 001200 

012746 000340 

012746 001246 

000002 

104400 016554 

012737 001272 

022777 177777 

001402 

000423 

022626 

012737 000176 

012737 000174 



001214 



177726 



3SI 

001214 4SI 
001216 



MOV »lf7570,SWR 

MOV »STACK,SP 

MOV #PR7,-(SP) 

MOV »2S,-(5P) 

RTI 

TYPE ,MREV 

MOV #38,4 

CMP #177777, fSWR 

BEQ 4$ 

BR 3S 

CMP (SP3+,(SP)+ 

MOV SSWREG,SWR 

MOV »OISPREG, DISPLAY 



************************ 



UNITIALIZE THE RX01 
IRESET TO HARDWARE SWR, 



IPRINT NAME ANO REVISION 
ISET TIME OUT VECTOR 
IIS SOFTWARE SWR SELECTED 
JYES, INSERT IT'S ADDRESS 
IBRANCH IF NO TIMEOUT TRAP OCCURS 
IRESTORE STACK AFTER TRAP 
IPOINT TO SOFTWARE SWITCH REG, 
IPOINT TO SOFTWARE OISP, REG, 
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a«9 

«50 

asi 
^52 

a53 

«5« 

aS5 

456 
457 
458 
459 
460 
4fel 
46a 
463 
464 
4b5 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
476 
479 
480 
481 
482 
485 
484 
485 
486 
487 
4e8 
489 
490 
49^ 
492 
493 
494 
495 
496 
497 
498 
499 

5wa 
501 

502 
503 
504 



001310 
E01314 
301316 
001324 
£01326 
001330 
301332 
001340 
001340 
001346 
001352 
031356 
001362 
'^01370 
P31376 
0tfl402 
301404 
0014 lit 
001412 
00141b 
001422 
001426 
£.01430 
C'/^1434 
301440 
001442 
0^1443 
10144a 
001450 
001454 
031456 
001457 
001460 
001464 
001470 
001472 
001473 
P01474 
301500 
001506 
001510 
D01514 
301520 
C01522 
001526 
P01534 
301540 
001544 
^01546 
«;01554 
t'0i562 
001564 
P01570 
001572 
001576 



005737 
001006 
023727 
001005 
104404 
000403 
U2737 

012737 

013703 
012723 
012713 
012737 
012737 
012705 
005025 
i322703 
00137a 
012705 
01272S 
022705 
001373 
104400 
013746 
104402 
00b 

000 

ia4a00 

013746 
104402 
00b 
000 
104400 
013746 
104402 
003 
000 
004737 
032777 
001002 
1044510 
005777 
100002 
004737 
012737 
005037 
105777 
100033 
052737 
032737 
001445 
E05737 
100044 
004737 
P32737 



300042 
H01214 



C500001 

'400006 

.•01204 
7107250 
a0034y 
/101234 
000765 
017024 

Oe;l04<| 

017004 
000012 
017024 

015167 

00120b 



015177 

001210 



015150 
001204 



007122 
000004 

015535 
I774fob 

G0?55i1 
000012 
PS10704 
177a44 

000200 

140000 



001bl4 

040000 



,SBTTU GET VAUUt FUK SOFTWARE SWITCH REGISTER 



013714 

000004 



012210 
012212 



64SS 
65SS 
55: 



TST 

BNE 

CMP 

SNE 

GTSwR 

BH 

H0V8 



STARTl J 

:5s: 



017014 TtSTDR; 



010704 
001212 



l'«42 

64« 

SkMR,»SWKEG 

b5S 

faSS 

»l,$AUToa 



i;are we running unoer xxop/act? 

nBRANCH IF YES 

nSOFTWARE SWITCH REG SELECTED? 

nBRANCH IF NO 

HGET SOFT»SWR SETTINGS 



nSET AUTO-MODE INDICATOR 



MOV »b,4 

MOV iN'TVEC,R3 

MUV »INTSERV, CR33' 

MOV »340, CR3) 

MOV »001234,KAN1 

MOV »0007b5,RAN2 

MOV »PARLUU,Wb 

CLR tR5)+ 

CMP »PASCNTR+2»R5 

HNE IS 

MOV »R0RETKY,R5 

MuV »l0,,tK5)+ 

CMP i»SHETRY + 2,RS 

fctNE 3S 

TYPE ,MHXCS 



JHESTORE ERROR VECTOR 

ISET INTEWUPT VECTOR LOCATIONS 



JINITIALUE CONSTANTS IN RANDOM NUMBER GENERATOR 

ISFT UP TU CLEAN ALL COUNTERS 
?0F ERRORS, ACCESSES, AND PASSES 
JHAVE ALL COUNTERS BEEN CLEARED 

JSET ALL RETRY COUNTERS TO 10 



MOV 


WXCS,-CSP) 


TYPOS 




.BYTE 


b 


.eSYTE 







TYPb ,MHXOa 


MUV 


wxOB,-tSPJ 


TYPOS 




.BYTt 


6 


,dYTE 







TYPE ,MINTVEC 


MOV 


INTVfeC-CSP) 


TYPOS 




.6YTE 


3 


,8YTE 






JSR PCfOONECK 

BIT »8IT2,*RXDB 

BNE IS 

TYPE ,MIN1T1 

TST *RXCS 

BPL TESTOR 

JSR HC»MOMt 

MOV »10,,P2RETRY 

CLR UNlTStL 

TbTB ISRXDB 

BPL 2S 

HIS «BITr,UNlTSEL 

BIT #140000, UTESTP 

BEO NOSEL 

TST UTtSTP 

BPL UPCONU 

JSR HC»DRYl 

HIT #40000, DTESTP 



fTYPE OUT DEVICE REGISTER ADDRESSES 
IJSAVE HXCS FOR TYPEOUT 
;;GQ type — OCTAL ASCII 
nTYPE 6 DIGITS 
nSUPPRESS LEADING ZEROS 

JfSAVE RXOB FOR TYPEOUT 
fiGO TYPE — OCTAL ASCII 
llTYPt 6 DIGITS 
.•{SUPPRESS LEADING ZEROS 

;AND VECTOR AOOHESS 
nSAVE INTVEC FOR TYPEOUT 
HGO TYPE--OCTAL ASCII 
MTYPE 3 QIGITCS) 
{{SUPPRESS LEADING ZEROS 

{WAIT FOR DONE BIT AFTER RECAL 

US INIT DONE SET 

lYES SKIP NEXT INSTRUCTION 

{NO, PRINT NO INIT DONE ERROR 

{WAS THERE AN ERROR ON START RELAL 

{IF NUT CONTINUE 

{YES, DO RECAL AGAIN 

{SET THE PARITY RETRY COUNTER 

{CLEAR UNIT SELECTION WORD 

{IS DRY BIT SET FUR UNIT AFTER RECAL 

{IF NOT SKIP NEXT INSTRUCTION 

{YES, SET UNIT READY BIT 

{WERE ANY DRIVES SPECIFIED 

{NO, SEE IF UNIT I IS HEADY 

{WAS UNIT 1 SELECTED 

{NO, IT MUST BE UNIT 

{SEE IF UNIT 1 IS READY 

{WAS UNIT SELECTED 
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505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 



i<j0l604 
001606 
001612 

Pvllbl4 
301622 
001626 
^01634 
001636 
0ei642 
001644 
001652 
001654 
001660 
001664 
001666 
001674 

001676 
301702 
001706 



301710 
301716 
001720 
001724 
001726 
001734 
001736 



001742 
001744 
001746 
001754 
001762 
001770 
001776 
002002 
002006 
002012 
002020 
002024 
002030 
002034 
002042 

002046 
002052 
302056 
002062 
002064 
002065 
002066 



001036 
135037 

000433 

012777 

004737 
132777 
001411 
004737 
000764 
332777 
001402 
104400 
105777 
100003 
052737 
000207 

004737 
105737 
100016 



123727 

001012 
005737 
001404 
042737 
000403 
104400 



000241 
013737 
042737 
013737 
042737 
006037 
006037 
006037 
013737 
006137 
006137 
000337 
042737 
000137 

005237 
104400 
017746 
104402 
003 



177364 DRYl! 
177354 



000033 
007122 

P)00002 

002046 

000004 177336 

015567 
177324 

100000 010704 



001614 

010704 



000041 
000042 
000200 
014643 



nosel: 
opcqnd: 



BNE OPCOND 
CLRB UNITSEL 
BR OPCUND 

MDV »R01STAT,#RXCS 

JSR HCfDONECK 

BITS »2,SRXUB 

BEO 2S 

JSR HC, STATER 

HR UKYl 

BIT »BIT2,#RXDB 

BEQ 2S 

TYPE ,MINIT2 

TSTB PRXD8 

BPL iS 

BIS #8IT15, UNITSEL 

RTS PC 

JSR PCrDRYl 
TSTB UNITSEL 
BPL IS 

{TEST ACTll LOAD MfcDiA INDICATOR 

CMPB ##41, #10 

BNE IS 

TST 8»#42 

BEO 2S 

81C »200, UNITSEL 

BR IS 

TYPE, D0LOAD 



{YES, CONTINUE 

{NO, CLEAR UNIT READY oIT 



{READ STATUS OF UNIT I 

{WAIT FOR DONE BIT 

{IS PARITY ERROR uIT SET 

{NO, CONTINUE 

{YES, GO HANDLE PARITY ERROR 

{REISSUE FUNCTION 

{INIT DONE SHOULD NOT BE SET 

{INIT DONE WAS SET PRINT ERROR 
{IS UNIT 1 DRY BIT SET 
{IF NOT SKIP NEXT INSTRUCTION 
{YES, SET UNIT 1 READY BIT 



{TEST UNIT 1 FOR DRY SET 
{IS UNIT SELECTED 
{NO 



001212 
177770 
001212 
177707 
002140 
002140 
002140 
001212 
010420 
010420 
010420 
177770 
002722 

017024 
015167 
177124 



011370 
011370 
002140 
002140 



HALT 

CLC 

MOV UTtSTP, SEQUEN 

BIC #177770, SEQUEN 

MOV UTESTP,TEST 

BIC #177707, TEST 

ROR TEST 

ROR TEST 

ROR TEST 

MOV UTtSTP, PAT 

HOL PAT 

ROL PAT 

SWAB PAT 

BIC #177770, PAT 

JMP XSTART 



{DOES LOCATION 41 CONTAIN THE NUMBER 10? 

{BRANCH IF NOT 

{CHECK FOR RXDP OPERATION 

{IN CHAIN MODE, DESELECT UNIT 

{AND DO NOT HALT 

{INFORM USER TO REMOVE LOAD MEDIUM 

IFROM UNIT AND REPLACE WITH 

{A 'SCRATCH' DISKETTE IF HE 

{WISHES TO TEST UNIT 

ICLEAR C BIT FOR ROR'S THAT POULOW 

IPUT INITIAL CONDITIONS IN SEQUENCE 

{CLEAR ALL BUT SEQUENCE BITS 

{PUT INITIAL CONDITIONS IN TEST 

{CLEAR ALL BUT TEST BITS 

{RIGHT JUSTIFY TEST BITS 



{PUT INITIAL CONDITIONS IN PATTERN 
{RIGHT JUSTIFY PATTERN BITS 



ICLEAR ALL BUT PATTERN BITS 



MOV 
TYPOS 
.BYTE 
,BVTE 



005337 017014 



INC PAKLOG 
TYPE ,MRXCS 
»RXCS,"CSP3 

3 



DEC P2HETKY 



IINC PARITY ERROR COUNTER 
{PRINT THE RXCS CONTENTS 

{{SAVE HRXCS FOR TYPEOUT 

{{GO TYPE— OCTAL ASCII 

{{TYPE 3 0IGITCS3 

{{SUPPRESS LEADING ZEROS 

{HAVE 10 ERRORS OCCURED 



DIRKAEsPil GET V^LUE FOR SO^TWASE SW|TCH REGISTER 



sfea 

563 
SbH 
565 
5fe6 
56? 
566 
569 
5T0 
5Ti 

57a 

573 
S7a 
5TS 
576 
577 
STa 
579 
5S0 

sai 

56S 

583 
584 
585 
566 
58? 
588 
569 
590 
59% 
5^2 
5^3 

595 
596 
597 

598 
599 
600 
601 
602 
603 
te04 
605 
606 
60? 
608 
609 
610 
6U 

6ia 

6i3 

bin 

615 
616 



002074 
002100 
00ai04 
003106 

@0aiia 

002116 

00aisa 
0i2ia6 

002132 
303134 
0agi40 

003142 
003144 
002150 
90a|52 

@0ai60 
00ai6g 

002164 

00ai7a 

003174 

003200 
002204 
002212 
002316 

302220 
002224 
002230 
002236 
002242 
0322^4 
0022^6 
002252 
303354 
S02260 
002262 
002370 
302372 
002274 
003300 
002303 
003310 
002312 
302316 
002322 
302326 
003334 
002340 
002342 
802346 
002352 
002360 
002364 
00336b 
mSSJZ 



001405 
104400 
104400 
000207 
005237 
104430 
104400 
104400 
10^400 



104400 
104400 
113737 
004537 

000000 
000403 
105737 
001344 
005737 
001451 
123737 
I010S3 
001441^ 
105737 
001447 
123737 
S01043 
004737 
104400 
100400 
113737 
004537 



01&017 

015052 

017026 
015755 
01601? 
015052 
015702 



000137 001230 



005002 
005737 
001441 
123737 
101112 
001431 
12373? 
101105 
004737 
104400 
113737 
004537 



HI.T4! 
TEST! 
TSTLIMITSI 



I044E0 
104400 
1UT37 

004537 

000000 

104400 
000404 



0W120I 000114 



001200 001201 35S 

002432 

015510 

0B1200 003316 

014446 

7S! 
015047 
015514 

001201 003242 
014446 



001203 000032 



001202 001203 

002432 
0i50a7 
015520 

001202 misi^ss 

014446 

015047 
Pil5537 

001203 002364 

0i52«w 



8 PAGE 12 


B£Q 


IS 


Type 


,MpAS 


TYPE 


,MCRIF 


HIS 


HC 


INC 


HPARLOS 


Type 


fHUNRtC 


TVPE 


jMPAR 


TYPE 


,MCRl.F 


TYPfe 


jMHAl.T4 


HALT 




JMP 


SA200 







CLR 


H2 


TST 


UD 


BfcQ 


IS 


CMP8 


IU,«U4 


BMI 


14S 


BEQ 


2S 


CMPa 


00,10 


»HI 


14S 


JSR 


PCTSTMSe 


TYPt 


,H00 


HDVB 


00, 7S 


JSR 


R5,SGL0EC 


OPEN 




TVPE 


,uausp 


TYPt 


,HID 


nyva 


IU,10S 


JSR 


H5,SGLDEC 


OPEN 




HR IS 


TSTtt 


00 


HNE 


is 


TST 


f^IWST 


8EQ 


lis 


CMPtJ 


LASr,»32 


BHI 


155 


B£Q 


tiS 


TST8 


FIRST 


BfeQ 


15S 


CMPO 


PIRST,LAST 


8MI 


15S 


J5W 1 


PCTSTHSG 


TYPt 


,0HL5P 


TYPt 


,MFIH5T 


MOVd 


FIRST, US 


JSR 1 


«5,SGU0EC 


OPEN 




TYPE 


,OBUSP 


TYPfc 


,MUAST 


MOVB 


UAST,12S 


JSR 1 


S5,SGI.0EC 


OPEN 




Type- 


,OBLLF 


BR lis 



IVES, LOG HARO ESiROS 
INO,TYPE PARITY EHROR 

IRETURN 

UNC HARD PARITY ERROH LOG 

rPRINT UNRECOVERABLE PARITY ERROR 



IHALT BECAUSE OF HARD PARITY ERROR 
;IF CONTINUE IS PRESSED GO TO START 



IMESSAGE FLAG 

ITEST FOR NO SELECTION OF TRACKS 
IIT WILL BF STANOARl; LIHITS 
;TEST FOR MAXIMUM ID LI^IT 



»0D MUST BE EQUAL OR LESS THAN ID 



IHAS INITIAL MESSAGE BEEN TYPED 
?TYPE BOTH ID AND 00 LIMITS 



ITYPE SINGLE DECIMAL t^OHD 



IIS OD a k? 

;nO,GO PRINT IT 

JTEST FOR NO SELECTION OF SECTORS 

;IT WILL BE STANDARD LIMITS 

ITE5T FOR NORMAL LAST SECTOR LIMIT 



IThERE IS NO SECTOR 



IFIHST MUST BE EQUAL TO OR LESS 
ITHAN LAST 



ITYPE BOTH FIRST AND LAST LIMITS 



HAIN0EC«U«0ZRJCA««6 MACYll 27C732) 
OZR)CAEgP|l GET VALUF. FOR SOFTWARE 



20«SEP'»76 15S46 
liNITCH REGISTER 



617 


003374 


133727 


001202 000001 


618 


002402 


001334 




619 


002404 


000207 




620 








621 


903406 


104400 


016363 


622 


002412 


005id37 


001200 


623 


003416 


000716 




624 


003420 


104400 


016455 


625 


003424 


005037 


001202 


626 


003430 


000765 




627 








628 


002432 


005702 




629 


003434 


001005 




630 


002436 


104400 


015«4b 


631 


003443 


104400 


015052 


632 


002446 


005202 




633 


S3034S0 


000207 




634 








635 


002452 


104400 


0150S2 


636 


003456 


104400 


015417 


637 


003462 


105737 


010704 


638 


002466 


100002 




639 


003470 


104400 


015106 


640 


003474 


005737 


010704 


64i 


002500 


100003 




642 


002502 


104400 


015116 


643 


002506 


104400 


015040 


644 


002512 


004737 


010012 


64S 


oeasu 


134400 


015052 


646 


003532 


005737 


010704 


64? 


002536 


001005 




648 


003530 


104400 


013016 


649 


003534 


000000 




630 


002536 


00013? 


001330 


6Si 


003542 


004737 


002142 


65a 


002546 


00020? 




653 








634 


003530 


104405 




655 


002552 


03377T 


000400 176434 


636 


003560 


001046 




65? 


002562 


012737 


000012 017014 


638 


002570 


0i2T37 


000012 017010 


639 


0iaS?6 


012??? 


040001 176402 


660 


002604 


00473? 


087122 


661 


002610 


03277? 


000003 176372 


66a 


002616 


001403 




663 


§03620 


00473? 


003046 


664 


003624 


000764 




663 


002626 


003777 


176354 


666 


003632 


100016 




667 


002634 


00473? 


010300 


6iS 


00264® 


12372? 


010072 000040 


669 








6?0 


002646 


i02ii@ 




6?| 


00a6Si 


00533? 


0l?0Ji 


b7i 


i024S4 


001350 





4SS 

13SS 

14SI 

15SS 



1st 

ICONOI 



HLTSS 
C0NT12J 



CMPb FIRST, #1 
BNE 5S 
NTS PC 

TYPE ,ODaBIG 

CLR 00 

BR IS 

TYPE ,32916 

CLR FIRST 

BR lis 

TST Hi 

HNE IS 

TYPE ,MNONSTU 

TYPE ,MCRLF 

INC K2 

RTS PC 

TYPE ,MCRLF 
TYPE ,MICON 
TSTS UNITSEL 
BPL IS 

TYPE ,MUNIT0 
TST UNITSEL 

8PL as 

TYPE ,MUNITi 

TYPt ,TAS 

JSR PCTYPSEL 

TYPE ,MCRLF 

TST UNITSEL 

BNE caNT12 

TYPE ,MNOORY 

HALT 

JMP SA200 

JSR PC#TSTLIMITS 

RTS PC 

CKS«tiR 

BIT #SN8,$3MR 

BNE HTN 

MOV »lk3,,P2RETRY 

MOV #10a»ODReTRY 

MOV ^RECALr^RXCS 

JSR PCOQNECK 

BIT »2,#RXDB 

BEQ IS 

JSR PC, STATER 

BR as 

TST PRXC8 
BPL XHOME 
JSR PCRDCQDE 
CMPS aSTAT,#40 

BGE XHUHE 
DEC UURETRY 



IIS FIRST SET TO 1 
INO, GO PRINT IT 



IPRINT TRACK LIMITS OUT OF RANGE 
IPRINT SECTOR LIMITS OUT OF RANGE 

ITEST MESSAGE FLAG 

IMESSAGE HEADING HAU NOT BEEN TYPED 

ISET THE MESSAGE FLAG 



ITYPE INITIAL CONDITIONS 
ITEST FOR DRIVE SELECTION 

ITYPE UNIT SELECTED 

ITYPE UNIT 1 SELECTED 

ITYPE TEST SELECTIONS 

IWERE ANY DRIVES READY 

lYES, CONTINUE 

INO, TYPE NO DRIVES MESSAGE 

INO DRIVES CAN'T CONTINUE 

IIF CONTINUE IS PRESSED RESTART 

ITYPE NONSTANDARD TRK AND SEC LIMITS 



ITEST THE NO RECAL SWITCH 

IRETURN IF THE SWITCH IS SET 

ISET UP THE PARITY RETRY COUNTER 

IU3E THE OD RETRY COUNTER FOR RECAL RETRIES 

IISSUE RECAL FUNCTION 

IWAIT FOR DONE FLAG 

IWAS THERE A PARITY ERROR 

INO, CHECK FOR ANY OTHER ERROR 

|YE5,G0 REPORT IT 

IRETRY RECAL 

IIS THE ERROR FLAG SET 

IIF NOT RETURN 

lYES, PRINT STATUS REGISTERS 

IIS THE B CODE LESS THAN CODE 40 

ICRECAL CODES ARE 10,20, AND 30) 

IIF NOT RETURN 

IM&VE 10 ERRORS OCCURfcD 

INO, RETRY 



OZRXAE.PIl GtT V&LUE F0« SOFTWARE SWITCH REGISTER 



673 
bU 
b75 
bH 
677 
678 
679 
660 
681 
682 
683 
684 
665 
686 
687 
688 
689 
690 
691 
693 
693 
69« 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 

7ia 

715 
716 
717 
718 
719 
720 
721 
722 
723 
lid 
725 
726 
727 
728 



@02656 104400 

002662 000000 

002664 030137 

002670 012737 

002676 000207 



302700 
0*32704 
002710 
002714 
0027U 
002722 
002726 
002732 
Ok52743 
002746 
302752 
002756 
002764 
at'2770 
002772 
003000 
00300a 
003006 
003010 
203014 
003016 
4503022 
003026 
303032 
003036 
003042 
003046 



012706 
01274b 
012746 
000002 
01^5237 
004737 
005037 
012737 
012757 
005037 
005037 
142737 
005737 

001003 

012737 

013704 
005304 
006304 
150437 
000777 
000137 
000137 
000137 
000137 
000137 
0ki0i37 
000137 



0,dl220 

000001 



001200 
000J4ta 
002716 

021 '-^40 
002452 
011142 

0K30012 
000KJ12 

P 04 1 24 

004122 
000377 
002140 

0W0007 
002140 



005014 

O0J052 
004130 
005456 
006444 
006504 
006544 
0.^6630 



8511362 XHOHtS 
HTNs 



TVPt ,MHALT3 

J«P SA200 

MDV »l,PRtSTRK 

RTS PC 



n a H * H ^ * ii ■» ■k ^ ^ 



*ft*«fai^*!!ts»!i(A* 



IYESa'.AN'T CUNTINUE Ais RXU WILL NOT REC&L 

IIF CONT, SWITCH IS PHESSEO GO TO START 
IRESET THh PRESENT THACk TO TRACK 1 

IRETURN 



JOECOUE Ttsr HITS OF INITIAL CONDITIONS 

BITS 3, 4, AND b OP THE INITIAL. SWR SELECTtD THE TEST WHICH 
IS TO til PRfeFURMED, THfcY ARE AS FOULOWSl 

BITS TESTS 



NO TEST SGLECTEU COEFAULT TO TEST 7) 

WRITE ONLY 

WRITE FOLLOWED BY READ 

WRITE FOLLOWED BY READ AND VERIFY 

HEAD ANU VERIFY ONLY 

READ ONLY (CRC CHECK) 

READ AND VERIFY DELETED DATA 

WRITE FOLLOWED BY READ FOLLOWfcU rtY ANOTHER 

READ AND VERIFY 



!l!*«t**ft4**<H» 



**************** «!*«««!* «»«*»*** 



ISS 

XSI ARTS 

testsel: 



017004 
017006 



liuv «srACR»sp 

MOV »PR7,-(SP3 

MOV »l»,«tSPJ 

RTI 

INC RhSTCNTR 

J8R PCICONP 

CLR CHARCT 

MOV »10,,RORfcTRY 

MUV fl0,,WTRETRY 

CLR tRWRT 

CLR RUAFTwT 

8ICB »377,P#BR0NTEST 

TST TEST 

BNE IS 

MUV »7,TtST 

MOV TEST,H4 

DEC K4 

ASL H4 

BISH R4,^»BR0NTEST 

BR , 

JMP WRTONLY 

JMP WRTRD 

JMP WTRDCK 

JHP KUUHK 

JMP KDUNLY 

JMP DRVSWP 

JMP TEST7 



;RESET the STACK POINTER 
JANO INTERUPT LEVEL 



IINC RESTART COUNTER 

JTYPE OUT INITIAL CONDITIONS 

;CL£Af< EOP CHARACTER COUNTER 

;SET UP READ AND WRITE RETRY COUNTERS 

JCLtAR WRITE CAUS6.0 BY ERROR FLAG 

ICL6AR READ AFTER WRITE FLAG 

JCLEAR OUT BRANCH OFFSET 

IIF NO TEST SPECIFIED FORCE TEST 7 



;aDJUST test blTS FOR CURRECT 

J8RANCH OFFSET 

IINSERT OFFSET TO BRANCH INST, 

jaRANCH aY TEST OFFSET 

IWRITE ONLY FUNCTION 

iwRITE THEN READ FUNCTION 

JWRITE THEN READ VERIFY 

IREAD VERIFY 

IREAD ONLY FUNCTION 

;wRiTE,ANU READ VERIFY ON ALTERNATING DRIVES 

JWRITE, READ, FOLLOWED tfY READ VERIFY 



MAlNDEC«li«OZ«XA«E hACYll 27(732) 20-SEP-76 15146 PAbE IS 
DZRXAE.Pll GET VALUE FOR SOFTWARE 3W|TCH REGISTER 



729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
746 
749 
7^0 
751 
752 
753 
754 
755 
756 
757 
75S 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
77| 
772 
773 
774 
775 
776 
777 
778 
779 
T80 
781 
782 
783 
784 



^03052 
003056 
003062 
003066 
003072 
003076 
003102 
003104 
003110 

003U2 
003116 
003122 
003130 
003136 
003142 
003146 
003152 
003156 
003162 
003166 
003170 
003176 
003202 
003206 
003212 

003214 
003216 
003224 

003232 
003240 



003244 
003250 
003252 
003260 
003262 
003266 
003272 
003276 
003300 
003304 
003306 
003310 
e03316 
003320 
003324 



004737 
004737 
004737 
004737 
004737 
005337 
001371 
004737 
00076.2 

004737 
004737 
012737 
012737 
004737 
012746 
012746 
005037 
012746 
012746 
000002 
012777 
004737 
112077 
005237 
000771 

005726 
012737 
012737 
012737 

000137 



005237 
104405 
032777 
001006 
104400 
104400 
104400 
104405 
005777 
100001 



010312 
01U44 
010bl4 
011254 
003112 
01135b 

010732 



012216 
012316 
000012 
000012 
005656 
003372 
003214 
006434 
000200 
003170 

000101 
007014 
176002 
006434 



015366 
015366 
003136 
003244 



017024 

020000 

000000 
016017 
015052 



017022 
017016 



003264 
003354 
003334 



ITHIS IS A «IRITE ONLY FUNCTION USING DATA PATTERN AND 
;TRACK SEQUENCE SPECIFIED BY INITIAL SWR SETTINGS 



WRTONLYS 
XwRTONLY! 



WRITEI 
XWRITEl 



ONEWRTI 
FILLBUFI 



151 

F2LLFLAGI 
MFRBYTEJ 



032777 

001037 
005337 
005737 



004000 175676 



017016 
017016 



HLT6! 
C0NT13I 



JSR PC»GETPATTERN 
JSR PCflNITTRACKS 
JSR PCiGETUNiT 
JSR PC»GETTRACK 
JSR PC»WRITE 
DEC TRKCNTH 
BNE IS 
JSR PC, STOP 
BR XWRTONLY 

JSR PCiINITSECTOR 

JSR PCGETSECTOR 

MUV »10,,SRETRY 

MUV #10,,PRETRY 

JSR PC.ADJSUM 

MOV »FILLDONE,-(SP) 

MOV 9FlLLtR,-CSP) 

CLR BYTECNTR 

MOV «(PR4,-CSP) 

MOV !»1S,«CSP) 

RTI 

MOV »FBie,«iRXCS 

JSR PCTRCK 

MOVa IM03+,#RXDB 

INC HYTECNTR 

B« FILLFLAG 

TST ISP)-*- 
MOV »MFILfPTYPl+2 
MOV »MFIL#PTYP2+2 
MOV aiFILLBUFiPC0NT + 2 
JMP PANTEST 



INC PAKLOG 
CKSWR 

BIT 9SW13,@SWR 
BNE C0NT4 
TYPE ,UPEN 
TYPE ,MPAR 
TYPE ,MCRLF 
CKSWR 

TST »sm 

8PL C0NT13 

MALT 

BIT S!SWll,#SWR 

BNE CONTS 

DEC PRETRY 

TST PRtTRY 



JSET UP SOFTWARE DATA BUFFER 
?SET UP 10,00, AND TRACK COUNTER 
ISET UP DRIVE UNIT SELECTION 
fPICK UP NEXT TRACK 
JDO THE WRITE FUNCTION 
»TEST TRACK COUNTER 

ICHECK FOR LAST DRIVE AND EOP 
JNEXT PASS 

ISET UP FIRST, LAST, AND SECTOR COUNTER 
IPICK UP NEXT SECTOR 

ISET RETRY COUNTER 

lAOJUST DATA BUFFER AND CHECK SUM FOR ADDRESSES 

fPUT GOOD RETURNON STACK 

IPUT ERROR RETURN ON STACK 



lEXICUTE FILLBUFER COMMAND 
ITEST FOR TRANSFER REQUEST FLAG 
ITRANSFER DATA BYTE 

IWAIT FOR NEXT TR FLAG 

IREMOVE THE DONE RETURN FROM THE STACK 
IPUT ADDR OF FILL8UF MESSAGE IN PAR ERR TYPOUT I 
IPUT AOOR OF FILLBUF MESSAGE IN PAR ERR TYPOUT 2 
HF NOT HARD ERR RETURN THROUGH PCONT TO FILLBUF 
IPRINT OUT PAR ERR AND TEST CONDITIONS FOR RETRY 



IINCREMENT PARITY ERROR 

ITEST DON'T PRINT ERROR SWITCH 

IPRINT THE PARITY ERROR MESSAGE 

ITEST MALT ON ERROR SWITCH 

IHALT ON ERROR 
ITEST NO RETRY SWITCH 
IIF SET LOG HARD ERROR 
IDECREMENT RETRY COUNTER 
fHAVE 10 ERRORS OCCURbO 



MAIN0EC*1J«0ZR3(A«E MACYU 37(7323 20-SEP-76 iSMfo PAUt lb 
OZRXAE.PU GET VAUUE FOR SOPTi^ARE SWITCH REliiSTEM 

8EQ C0NT5 
JHP FILLBUF 
INC HPARLOG 
TYPE ,UBUL.F 
TYPE fMUNREC 
TYPt ,UPEN 
TYPE ,MPAH 
TYPE ,MCRLP 
JMP UELUNiT 



785 


B03330 


001402 








786 


003332 


000137 


003136 




PCONTi 


787 


003336 


005237 


01702b 




CQNT51 


788 


003342 


104400 


01^240 






789 


P03346 


104400 


015755 






790 


003352 


104400 


000000 




PTYP2I 


791 


003356 


104400 


016017 






792 


003362 


104400 


015052 






793 


003366 


000137 


010074 






79a 












795 












796 












797 












798 
799 

800 










n******' 


003372 


012737 


000012 


017016 


FlUUDONE 


80i 


003400 


012746 


003462 




REWRITE: 


802 


003404 


012746 


003510 






803 


303410 


U2737 


000105 


004120 




804 


003416 


032737 


001000 


001212 




805 


003424 


001403 








B06 


003426 


112737 


000115 


004120 




807 


003434 


062737 


000001 


021030 


ISI 


808 


003442 


005537 


021032 






809 


003446 


004737 


004022 






810 


003452 


004737 


007122 






611 


203456 


000137 


007204 






812 












813 


003462 


005737 


0So4l24 




WRTDOnE! 


814 


(303466 


001004 








815 


003470 


005337 


012306 






816 


003474 


001003 








en 


003476 


000207 








die 


003500 


000137 


004246 




u: 


819 

820 
821 


003504 


000137 


00311O 




2s: 


003510 


005726 






WRTfcR: 


822 


003512 


032737 


000002 


010070 




823 


003520 


001413 








824 












825 


003522 


012737 


0166)10 


003264 




826 


003530 


012737 


016010 


003354 




827 


£03536 


012737 


003400 


003334 




828 


023544 


000137 


003244 






829 

830 
831 












003550 


012737 


msiiOi 


00367a 


wrtsek: 


832 












633 












834 












835 












836 


t'03556 


012737 


016010 


003630 




837 


003564 


^12737 


016010 


003722 




838 
839 

840 


003572 


004737 


B03576 






003576 


012703 


017036 




SfcfcKEHS 



nf CLEARED LOG HaRQ tHROR 

JRETURN TO RETRY TEST THROUGH HtRE 

JINCHARO PARITY ERROR CDUNTEH 

ITYPE HARD PARITY ERROR 



IGO OELETt THfc UNIT, CAN NOT CONTINUE 



;SWITCH 9 OF INITIAL TEST CONDITIONS SWITCH SETTINGS IS THg DELETED DATA 
JFUNCTION INUICATOR, WHEN THIS BIT IS SET ALL WRITE / READ FUNCTIONS wiLL 
;5ET AND CHECK THfc DELETED DATA 6IT ON THt DISKETTE, 

A******************************************************** 



MOV »10,,PRETRY 

MOV »wRTOONe,-CSP) 

MOV »WRTERr-CSP) 

MOVti »WRTlE|FUNCTION 

ttIT «BIT9,UTESTP 

B£Q 1$ 

MOVtt #WT0UIE»FUNCTI0N 

ADO »1,WTCNTH 

ADC WTCNTR+2 

JSR PCiCOMMWORO 

JSR HCDONtCK 

JMP NOXNTfeR 

TST fcRWRT 

BNE IS 

DtC 5ECCNTM 

HNE 2S 

NTS PC 

JMP KtREAD 

JMP XwRITE 



ISET UP RETRY COUNTER 
>SET GOOD RETURN ON STACK 
ISET ERROR RETURN ON STACK 
JSET FUNCTION WORD TO WRITE 
;TEST for WRITE DELETED DATA 



IINC TOTAL WRITE FUNCTIONS COUNTER 
JOOUBLE PRECISION COUNTER 
JTRANSFER COMMAND TO DRiVt 
JTEST FOR DONE FLAG 

fNO interupt error 

nS THIS A RE.MRITE FROM A DATA ERROR 
lYES GO REREAD THIS SECTOR 
;N0,TEST sector COUNTER 
;nOT last sector go to next ONE 



/REREAD THE SECTOR 



TST ISPJ* 
BIT »B1T1»ASTAT 
BEQ WRTSEK 
fPARITY ERROR DURING A WRITE FUNCTION 

MOV #MWRITE,PTYP1*2 IPUT aDuR OF 
MOV »MWRITt,PTYP2+2 
MOV »RtWRITE»PC0NT+2 



IREMOVE THE DONE RETURN FROM THE STACK 

JIS THIS A PARITY ERROR 

JNO, IT MUST BE A SEEK ERROR 



WRITE MESSAGE IN PAR ER TYFOUT 1 
JPUT AUDR OF WRITE MESSAGE IN PaR ER TYPOUT 2 
J IF NOT HARD ERR RETURN THROUGH PCONT TO REWRITE 



JMP PARTEST 



;G0 InC LOG AND TEST FOR RETRY 



fSEEK ERROR DURING A WRITE FUNCTION 



MOV «0NEWRT,SEKRTY+2 



MOV »MWRITE,STYPl+2 
MOV »MKRITt,STYP?+2 
JSR PC, SEEKER 



MOV »Zi>EKLDGfR3 



SETUP FOR WRT RETRY ON SEEK ERROR 
f (AFTER A RECAL. IHE COinTENTS OF SECTOR 1, 
ITRACK I ARE LOADED IMU THE SECTOR BUFFER. 
ITO REWRITE THE CORRECT DATA THE PROGRAM 
JMUST REFILL THE SECTOR BUFFER, 
?PUT ADOR OF WRITE MESSAGE IN SEEK ER TYPEOuT 
;PUT ADUR OF WRITE MESSAGE IN SEEK ER TYPEOuT 
IRECORD SEEK ERROR 

JSETUP INC INSTRUCTION FOR UNIT 3 LOG 



MAINOEC-U-DZRXA-E MACYll 27(732) 20-SEP-76 15:46 PAliE 17 
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841 


003602 


00^737 


021044 






JSR PCUILOG 


842 


003606 


005213 








INC IRi) 


843 


003610 


004737 


("03770 






JSR PCiTRKERR 


844 


003614 


104405 








CKSWR 


845 


003616 


032777 


020000 


175370 




BIT »SW13,S»SWR 


846 


003624 


001004 








BNE bWMtTl 


847 


003626 


104400 


016010 




STYPl! 


TYPE ,MHRITE 


848 


003632 


004737 


003736 






JSR PC»SEKTYP 


849 


003636 


lui4405 






SWH|„T1S 


CKSWK 


850 


003640 


005777 


175350 






TST PSWR 


851 


S03644 


100001 








BPL CONTia 


852 


003646 


000000 






HLT7: 


HALT 


853 


003650 


032777 


004000 


175336 


coNTia: 


BIT I»5W11,«'SWR 


854 


003656 


001007 








BNE HARUSK 


855 


003660 


005337 


017022 






DEC SRtTRY 


856 


003664 


001404 








BEQ HARD5K 


857 


003666 


004737 


002550 






JSR PC, HOME 


858 


003672 


000137 


003130 




sekrty; 


JMP UNEWRT 


859 


203676 


012703 


017076 




HAROSKI 


MOV SZHSEKL0G,R3 


660 


003702 


004737 


021044 






JSR PCiUlLOG 


661 


003706 


005213 








INC CRi) 


862 


003710 


104400 


015240 






TYPE ,UBLLF 


863 


003714 


104400 


015755 






TYPE ,MUNREC 


864 


003720 


104400 


016010 




STYP2: 


TYPE ,MWRITE 


865 


003724 


004737 


003736 






JSR PCiSEKTYP 


666 


003730 


062706 


000002 






ADD »2»SP 


867 


003734 


000207 








RTS PC 


868 
869 


003736 


104400 


015775 




sektyp: 


TYPE ,MSEEK 


670 


003742 


104400 


014567 






TYPE ,MPRES 


871 


003746 


013737 


011362 


003760 




MOV PRtSTRK,l$ 


672 


003754 


004537 


014446 






JSR R5,SGLDEC 


873 


003760 


000000 






1$: 


OPEN 


874 


003762 


104400 


015052 






TYPE ,MCRLF 


875 
676 
87T 


003766 


000207 








RTS PC 


003770 


013705 


011360 




trkerri 


MOV TARGET, R5 


878 


003774 


006305 








A3L R5 


679 


003776 


062705 


020344 






ADD !»U0TRK,R5 


860 


004002 


032737 


000020 


010704 




BIT »8IT4,UNITSEL 


681 


004010 


001402 








BEO IS 


682 


004012 


062705 


020576 






ADD »U1TRK,R5 


683 


004016 


005215 






IS! 


INC (R5) 


884 
885 
886 


004020 


000207 








RTS PC 


004022 


013705 


0U360 




COMMWORDi 


MOV TARGET, R5 


887 


004026 


006305 








ASL R5 


886 


004030 


006305 








ASL R5 


889 


004032 


062705 


017174 






ADO »TKACC,R5 


890 


004036 


062715 


000001 






ADO »li (R53 


691 


004042 


005565 


000002 






ADC 2(R5) 


692 


004046 


153737 


010704 


004120 




Bise UNITSEL»FUNCTION 


693 


004054 


013777 


004120 


175124 




MOV FUNCTION, #RXCS 


694 


004062 


004737 


007014 






JSR PCTRCK 


895 


004066 


U3777 


012310 


175114 




MOVB TSECTOR,PRXOB 


896 


004074 


004737 


007014 






JSR PCTRCK 



HEST FOR UNIT 1 LOG 
{INCREMENT SEEK ERROR LUG 
JINC ERROR PER TRACK COUNTERS 

JCHECK DON'T PRINT ERROR SWITCH 

;PRINT WRITE (READ) SEEK ERROR 

;TEST THE HALT ON ERROR SinITCM 

JHALT ON THE ERROR 

ICHECk the NO RETRY SWITCH 

JIF SET LOG HARD SEEK ERROR 

JHAVE 10 ERRORS BEEN LOGED 

;YES log hard ERROR 

IRECALI8PATE DRIVES ON SEEK ERROR 

;N0, RETRY WRITE COMMAND CHEAD COMANU) 

JSET INC, INST, FOR UNIT i ERR LOG 

JTEST FOR UNIT 1 ERROR LOG 

fHARO SEEK ERROR 

?TYPE UNRECOVERABLE SEEK ERROR 
;0N WRITE (READ) COMMAND 

IREMOVE SEEK ERROR FROM STACK POINTER 

JRETURN TO NEXT SECTOR BV DONE RETURN ON STACK 

JTYPE SEEK ERROR 

ITYPE ADDRESS OF TRACK MOVED FROM 



JSET UP TO INC ERROR PER TRACK COUNTER 
lADJUST FOR EVEN ADDRESS 
lAODIN ADDERSS OF UNIT LOG 
ICHECK THt UNIT SELECTION BIT 

IIP Cleared unit is active 

lADJUST FOR UNIT 1 LOG 
IINC THE CORRECT COUNTER 



IGET TRACK NUMBER 

IMULTIPLY BY 4 TO DOUBLE PRECISION 

; INTERLEAVE COUNTER LOCATIONS 

lAOO ON ADDRESS OF TRACK ACCESS COUNTER 

I INCREMENT THE COUNTER 

lAOD CARRY TO HIGH ORDER WORD 

ISET UNIT SELECTION BIT IN COMMAND WORD 

ISEND OUT COMMAND TO DRIVE 

IWAIT FOR TR FLAG 

ISEND OUT TARGET SECTOR 

IWAIT FOR TR FLAG 
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OZRxAE.Pli GtT VALUE FOR SOFTWARE SWITCH RfcGlS?E« 

ft9? '^CiaiPSCI 113777 0il3fe0 175102 MOVe TARGfcT,^HXOH JSENO OUT TARGET TEACK 

IVb Ittlll llllll CUR -C5P3 SLOWER INTERUPT LEVEL TO ALLOW AN INTERUPT 

8<»9 00^110 012746 00ailfe MOV i»lS,-tSP5 

901 00«Ufa 000207 is: RTS PC 

902 

903 i?«ai20 000000 Functions 



1^ 



KDAFTwT: IREAD AFTER WRITE FUNCTION FLAG 

tRWRTS IWRITE CAUSED BY DATA ERROR FLAG 

OATACK! ^ JOATA CHECK ON CRC EHHOR FLAG 



90<J 00ai22 000000 

905 00^124 000000 

906 004126 200001^ 
907 

Q?! ITHIS IS A WHITE ALL SECTORS FOLLOWED BY A READ ALL SECTORS 

,jj IwITH UATA PATTERNS AND HEAD SEQUENCING SET BY INITIAL SWR 

912 ? T « 2 

913 

9ia 004130 005137 004122 WRTROl COM KDAFTWT JSET READ AFTER WHITE FLAG 

915 P04134 004737 010312 JSR HC» GETPATTERN 

916 '304140 004737 «11144 XWWTRDJ JSR PC » INITTWACKS 

917 204144 304737 0l0bl4 JSR PCiGETUNlT 

918 004150 004737 Pill25« lH JSP PCGETTRACK 

919 004154 004737 003112 JSR HC»WRITE 

920 304160 004737 b042B0 JSR PC»RtAU 

921 0C41fe4 005337 01135b DEC THKCNTH 

922 004170 301367 »NE IS 

923 004172 004737 010732 JSR PC»STOP 
92a 004176 000760 ^^ XWRTRD 
925 

927 

ggg fREAO DATA FROH THE DISKETTE 

929 

930 

931 004200 004737 01221b HEAD: JSR PC, iNlTSfcCTQR 

qj? i?ie)a2P<l 0^4737 012316 XwfcAD! JSR PCiGETSECTOk 

933 004210 012737 000012 0|7k!l0 »OSI »l0.,DDRfcTRY /SET UP RETRY COUNTERS FOR DELETED DATA 

934 D04216 012737 000012 M17012 MOV » 10, , OAT ARETR Y IDATA ERROR 

935 C04224 312737 000012 017016 f^UV »10.,PRETHY IPARITY 

936 004232 012737 000012 017022 "OV »10.,SRETRY >SEEK 

937 P04240 312737 0W0012 017020 mqv »10,,CR£TRY lANU CRC ERRORS 

938 004246 005037 004126 KfcHfeAO! CuR UATACK fCLtAR CRC DATA CHECK FLAG 

939 004252 012746 004316 ^^'^ »RUDQNE, - tSP) JSET GOOD RETURN UN STACK 

940 PM256 .n2746 P04a60 ^OV «kUERR,-tSP) JSET HEAD ERROR RETURN UN STACK 
94! i^lJia^bP 112737 000107 004120 MfjVb SHDIt i FUNCT ION 

94^ 3632^0 llllll 00000 ^ai«3a ADD *1.RDCNTK UNC TOTAL READ FUNCTIONS COUNTER 

943 004276 005537 021036 ADC N0CNTR*2 JDOUBLE PRECISION CUUNTtR 

944 004302 004737 0K)4kj22 JSR PCCOMMWORD 

945 004336 004737 007122 JS'R ^COONtCK ;TEST FuR DONE 

946 01-4312 000137 00720<* JMP NUINTEH JNO INTERuPT ON OQNt 
947 

946 
94q 

950 004316 022737 mV.iiXi 017004 RODONE! CMP »10.,ROReTRY US READ kETRY tOUAL TO 10 

951 204324 0toia20 «tQ CONTl JYES,NO ERRORS OCCUREU 

952 004326 012703 017v552 "OV »ZH0LUG,H3 JSF! InC, INST. FOR UNIT ERROR LOG 
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JSR PCiUlLOG JTEST FOR UNIT 1 ERROR LOG 

INC CR3) JINC RECOVERABLE READ LOG 

MOV »lkJ,,RDRETRY ;RESFT READ RETRY COUNTER 

TYPt jUSLLF 

TYPE ,MREC fTYPE RECOVERABLE READ ERROR 

TYPE ,MREAO 

TYPE ,MCRLF 

Ti: CMP »10,,WTRETRY JIS WRITE RETRY EUUAL TO 10 

BEO CUNT2 |YES,NO ERRORS OCCUREU 

MOV »ZWRTL0G»R3 ISET INC, INST, FOR UNIT ERROR LOG 

JSR PCiUlLOG ITEST FUR UNIT 1 LOG 

-,WH vj^H-^o ^«,wc.. ll^C tH^) 'II^C RECOVERABLE WRITE LOG 

^ 965 pLaia ^12737 000012 017006 ^^0V »10,,WTR£TRY JRESET THE WRITE RETRY COUNTER 

TYPE ,U8LLF 

TYPE ,MREC fTYPE RECOVERABLE WRITE ERROR 

TYPt ,MWRITE 

TYPE ,MCRLF 

T3} JSR PCODCHK JCHECK FOR DELETED DATA INDICATOR 

TST Rl I8IT 15 OF Rl IS HEAD 1 SECTOR FLAG 

flPL NEXTRO 

HT8 PC HF SET, GO VERIFY DATA JUST READ 
TRD: DEC SECCNTR 

BNE XREAO 

RTS PC ;READ FUNCTION IS DONE 

RR. TST CSP)+ IREMOVE THE DONE RETURN FROM THE STACK 

BIT »BIT1,ASTAT IIS THIS A PARITY ERROR 

BEO 1$ fNO, SEE IF ITS A CRC ERROR 

JPARITY ERROR DURING A READ FUNCTION 

MOV «MREA0,PTYPl+2 |PUT ADDR OF READ MESSAGE IN PAR ERR TYPEOUT I 

MOV »MREA0,PTYP2+2 rPUT ADOR OF READ MESSAGE IN PAR tR TYPEOUT 2 

MOV »RtREAD,PCQNT*2 t If HARD ERR RETURN THROUGH PCOnT TO REREAD 

JMP PAHTEST IRECORO PARITY ERROR AND RETRY FUNCTION 

BIT »BIT0,ASTAT US THIS A CRC ERROR 

BNE CRCER lYES GO TEST AND LOG IT 

fSFEK ERROR DURING A READ FUNCTION 

MOV »RtREAD,SEKRTY+2 fSET SEEK CONTINUE FOR READ RETRY 

MOV »MREA0,STYPl+2 ISET ADDR OF READ MESSAGE IN SEEK ER TYPEOUT 1 

MOV »MREAD,STYP2+2 ISET ADDR OF READ MESSAGE IN SEEK ER TYPEOUT 2 

JSR PC, SEEKER IRECORD SEEK ERROR 

BR NtXTRD IGO TO NEXT SECTOR, CAN'T READ THIS ONE 

;CRC ERROR DETECTED WHILE READING 

ERj JSR PCTRKERR IINC ERROR PER TRACK COUNTER 

TST Rl IIF READ ONLY, REPORT DATA CRC ERROR 

BPL DATACRC 

INC UATACK ISET DATA CHECK FLAG 

JSR PCEMPBUFF ICHECK FOR A DATA ERROR 

TST fcRCNTR IWA3 THERE A DATA ERROR 

BNE DATACRC |YE5, REREAD ANO/OR REWRITE THE DATA 

MOV »ZCRCBA0iR3 ISET INC, INST, FOR UNIT ERROR LOG 

JSR PCUILOG ITEST FOR UNIT 1 ERROR LOGS 

INC CR3J INOjINC BAD CRC GENERATOR ERROR 

BIT S!SW13,#SWR ITEST DON'T SWITCH 

BNE 2S 

TYPE ,MBADCRC ITYPE CRC GENERATOR ERROR 



953 


004332 


004737 


021 '^4 a 




954 


£34336 


025213 






955 


00434(3 


012737 


0k300l2 


017004 


956 


004346 


104400 


015241? 




957 


004352 


104400 


01562/ 




958 


204356 


1044?0 


015674 




959 


004362 


U4400 


015052 




960 


?04366 


022737 


000012 


017006 


961 


004374 


001420 






962 


004376 


012703 


017^356 




963 


004402 


004737 


C.21044 




964 


004406 


0^5213 






965 


004410 


^12737 


0M0012 


017006 


966 


004416 


1044^0 


015240 




967 


004422 


104400 


015627 




968 


004426 


104400 


016010 




969 


£04432 


104400 


M15052 




970 


004436 


004737 


005204 




971 


0k34442 


005701 






972 


004444 


100001 






973 


004446 


000207 






974 


004450 


005337 


012306 




975 


004454 


5)01253 






976 


004456 


000207 






977 










978 


004460 


005726 






979 


004462 


032737 


000002 


010070 


960 


004470 


001413 






981 










962 


004472 


012737 


015674 


003264 


983 


004500 


012737 


015674 


003354 


984 


004506 


012737 


004246 


003334 


985 


004514 


000137 


003244 




986 


004520 


032737 


000001 


010070 


987 


004526 


001014 






968 










989 


004530 


012737 


004246 


003674 


990 


004536 


012737 


015674 


003630 


991 


004544 


012737 


015674 


003722 


992 


004552 


004737 


003576 




993 


004556 


000734 






994 










995 


004560 


004737 


003770 




996 


004564 


005701 






997 


004566 


100061 






996 


004570 


005237 


004126 




999 


004574 


004737 


00S536 




1000 


004600 


005737 


006442 




1001 


004604 


001052 






1002 


004606 


012703 


017046 




1003 


004612 


004737 


021044 




1004 


004616 


005213 






1005 


004620 


104405 






1006 


0^94622 


032777 


020000 


174364 


1007 


004630 


001004 






1008 


004632 


104400 


015644 
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1009 


004636 


104400 


015052 




TfPfe ,MCHLF 


1010 


00«642 


104405 




2SS 


CKSwN 


l@U 


B0afea4 


00S777 


17«344 




TST fSWR 


1012 


004650 


ia000i 






BPL C0NT15 


ISO 


i@465g 


000000 




HLTi0| 


HALT 


l@H 


0046S4 


332777 


004000 


174332 C0NT15S 


BIT ^SWU,fSWR 


1015 


004662 


001005 






BNE 3S 


1016 


004664 


005337 


017020 




OeC CRfeTRY 


10IT 


004670 


001402 






BED 3S 


1016 


00467a 


000137 


004346 




JMP HtHEAO 


1019 


004676 


012703 


017106 


3SS 


MQV »ZMCRCBAU,R3 


1020 


004702 


004737 


021044 




JSR MCUiUOG 


1021 


004706 


005213 






INC CRi) 


i02a 


004710 


104400 


015240 




TYPE lOBlL? 


1023 


004714 


J04400 


015644 




TYPE ,MBADCRC 


1024 


004720 


104400 


01S052 




TYPfe ,MCRLF 


1025 


004724 


104400 


015724 




TYPE ,MHALrii 


1026 


004730 


01^0000 




HLTUJ 


HALT 


1027 








lOATA 


CRC ERROR REREAD ANp/OR 


1028 


304732 


012703 


017042 


DATACRC: 


MOV #ZCRCL0G,R3 


1029 


004736 


004737 


0210«4 




JSR HCUllOG 


1030 


ga4742 


005313 






INC CK3) 


103| 


004744 


104405 






CKSwK 


103S 


004746 


032777 


020000 


174240 


BIT »SW13,#SWR 


1033 


004754 


001004 






BNE «S 


I03fl 


004756 


104400 


0|S73te 




TYPE ,MCRC 


1035 


004762 


104400 


015052 




TYPE ,MCRLH 


lesfe 


004766 


104405 




«SI 


CKSt^H 


1037 


P04770 


005777 


17«220 




TST ?SWR 


103S 


004774 


100001 






BPL C0NT16 


1039 


004776 


000000 




HLT12! 


HALT 


1040 


005000 


032777 


00«000 


17^206 C0NT16I 


BIT SSWU,iSl«!R 


10^1 


0^35006 


001005 






BNE 5S 


10^2 


ea50l0 


005337 


017004 




DEC HDKETHY 


10<^3 


005014 


001402 






BEQ 5$ 


10^4 


005016 


00013T 


004a«6 




JMP HfcWEAD 


10^5 


005022 


012703 


0l7i02 


5SS 


MOV »ZHCWCL0G,R3 


10^& 


005026 


304737 


02l0tt4 




JSR PCiUlLUG 


l@«7 


005032 


005213 






INC tHJ3 


I0«8 


005vc34 


012737 


000012 


01700« 


MOV »10,,Rl)RETRY 


i0<l9 


?05042 


0^5737 


00iH22 




TST RUAFTINT 


i0S0 


005046 


001021 






BNE CUNTb 


I05| 


005050 


012703 


017112 




MOV ?>ZHRDL0G,R3 


i0sa 


S05'454 


004737 


0210«4 




JSR RCUILOG 


1053 


00506® 


0052U 






INC (Ri) 


105^ 


305062 


104400 


015243 




TYPt jOBLLF 


1@3S 


P05066 


i0fi400 


01S75S 




TYPE .MUNREC 


1056 


00507a 


104400 


015674 




TYPE ,MREAO 


10S7 


rt.5076 


ia440M 


015052 


C0NT7S 


TYPE ,MCRLP 


1058 


005lig 


062T06 


000002 




ADD S2,3P 


1059 


?'05106 


000137 


00«<t50 




JMP NEXTRO 


1060 


P05U2 


104405 




CUNT6S 


CKSWR 


10fe| 


S05ii4 


052777 


00^000 


17^072 


BIT »SWli,#SWR 


10^2 


005122 


0^1011 






BnE fS 


i0fe3 


305124 


005337 


k.l7w06 




U£C WTNETKY 


106« 


9051 3k5 


001406 






B£0 7S) 



ITEST HALT ON ERROR Sk«JITCH 

?HALT ON ERROR 

ICHECK (JO RETRY SIrtTCH 

HF SET LOG HARD ERROR 

;HAVE 10 ERRORS BEEN LOGED 

fYES,LOG HARD ERROR 

INO,GO REREAD DATA 

JSET INC, INST, FDR UNlf ERROR LOG 

ITEST FOR UNIT 1 ERROR LOGS 



fTYPE HARU CRC GENERATOR ERROR 

MND HALT AS THE CRC GENERATOR DOESN'T i«ORK 

REWRITE TO GET GOOD DATA 

JSET INC, INST, FDR UNIT k) ERROR LOG 
?TE3T FOR UNIT 1 ERROR LOGS 
JTRUE DATA CRC ERROR 

JTEST DON'T PRINT ERROR SvmJTCH 

ITYPE DATA CRC tRROR 

fTEST HALT ON ERROR SsmITCH 

?HALT ON ERROR 

fTEST NO RETRY SwJTCH 

riF SET LOG HARD ERROR 

JHAVE 10 ERRORS OCCURED 

lYES LOG HARD ERROR OR REwRITE DATA 

;no,go reread THIS sector 

ISET INC. INST. FOR UNIT ERROR LOG 

fTEST FUR UNIY 1 ERROR LOGS 

fINC HARD CRC ERROR LUG 

fRESET READ RETRY COUNTER 

fIS THIS A READ AFTER WHITE FUNCTION 

fYES,GO REWRITE IT 

fNOfSET INC, INST, FDR UNIT ERROR LOG 

fTEST FOR UNIT 1 ERROR LOGS 

fREAD ONLY, HARD READ ERROR 

fTYPE UNRECOVERABLE READ ERROR 



fREMMOVE READ DONE ADDRESS FROM STACK 
fREAD NEXT SECTOR CAN'T READ THIS ONE 

fTEST NO RETRY SWITCm 
fIF SET LOG HARD ERROR 
fHAVE 10 REWRITES BEEN DONE 
fYES,LOG HARD WHITE ERROR 
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1065 


005132 


005137 


00ii|3a 




COM tRWRT 


1066 


005136 


062706 


000002 




A00*2,aP 


1067 


005142 


000137 


003130 




JMP UNEWRT 


1068 


005146 


012703 


ei7ii6 


7SI 


MOV »ZHWRTL0G,R3 


1069 


00S1S2 


004737 


02l0a4 




JSR FCiUlLOG 


1070 


00S156 


005213 






INC IRi) 


len 


005160 


012737 


000012 


017006 


MUV »10,,wrReTRY 


1072 


005166 


104400 


015240 




TYPE ,UBLLF 


1073 


E05172 


104400 


015755 




TYPE ,MUNREC 


1074 


003176 


104400 


016010 




TYPE ,HWRITE 


1075 


005202 


000735 






BR CUNT7 


1076 












107? 












1078 












1079 


005204 


032737 


001000 


001212 DDCHKI 


HIT »BIT9,DTESTP 


1080 


005212 


001472 






BEQ CONT10 


10S1 


005214 


132737 


000100 


01007^ 


BITB #BIT6,ASTAT 


I0aa 


003222 


301114 






BNE RETURN 


1083 


005224 


012703 


017066 




MOV S2DDMIS,R3 


1084 


005230 


004737 


021044 




JSR PCUILQG 


i0@5 


005234 


005213 






INC CRi) 


1036 


005236 


004T37 


003770 




JSR PCTRKERR 


108? 


005242 


104405 






CrSi^H 


1098 


005244 


032777 


020000 


173742 


BIT »SWi3#^SWR 


1039 


005252 


001011 






BNE CONTll 


li^i 


005254 


104400 


01<1S06 




TYPE iMOOMiS 


10^1 


005260 


052737 


000400 


010704 DDERRI 


BIS »BITa,UNlTSEL 


1092 


005266 


004737 


0tf77l6 




JSR PCrTYPADR 


1093 


005272 


104400 


015052 




TYPE ,MERLF 


1094 


005276 


104405 




CONTllI 


Cs<SWH 


i0?5 


005300 


005777 


173710 




TST PSWR 


1096 


005304 


100001 






BPL C0NT17 


1097 


005306 


000000 




HLTi3l 


HALT 


109S 


005310 


032777 


004000 


173676 CONTin 


BIT »SWil,#SWH 


1099 


005316 


001005 






BNE 4S 


1100 


005320 


005337 


017010 




DEC UDRETRY 


1101 


005324 


001402 






BED «S 


1102 


005326 


000137 


004246 




JMP REREAD 


1|03 


005332 


013703 


017136 


4SI 


MOV 3>ZHDOLaG,H3 


1184 


005336 


004737 


021044 




JSR PcuaoG 


1105 


005342 


005213 






INC IR3J 


1106 


005344 


104400 


015340 




TYPE jUBLLF 


US? 


0053S0 


104400 


015755 




TYPE ,MyNREC 


110S 


005354 


104400 


01561S 




TYPE jMODER 


U09 


003360 


104400 


015032 




TYPE ,MCRLF 


Ui0 


005364 


004T37 


007716 




JSR PCTYPADR 


nil 


005370 


104400 


015052 




TYPE ,MCRLF 


1112 


035374 


000137 


00^450 




JMP NEXTRO 


1U3 


005400 


032737 


000100 


010070 CONTi0I 


BIT »BIT6,ASTAT 


1114 


005406 


001422 






BEQ RETURN 


HIS 


005410 


012703 


017072 




MOV »ZUNXDD,R3 


UU 


005414 


004737 


031044 




JSR PCUILOG 


UI7 


ii543@ 


005313 






INC tR33 


ilia 


005422 


052737 


000400 


010704 


818 »aiTa,UNlTSEL 


1119 


005430 


004737 


003770 




JSR PCrTRKERR 


1120 


005434 


104403 






C«S«R 



fNOfSET THE WRITE CAUSED BY ERROR FLAG 

fREMOVE RDDQNE ADDRESS FROM STACK 

fREWRITE SECTOR THEN REREAD TO CHECK FOR ERROR 

fSET INC, INST, FOR UNIT ERROR LOG 

fTEST FOR UNIT I ERROR LOGS 

fHARO WRITE ERROR 

fRESET WRITE RETRY COUNTER 

fTYPE UNRECOVERABLE WRITE ERROR 



fTEST BIT 9 AS TO DELETED DATA TRANSFER 

fTHIS IS A DELETED DATA FUNCTION 

IDD BIT SHOULD BE SET 

fSET INC INST FOR UNIT ERROR LOG 

fTEST FOR UNIT I ERROR LOGS 

fINC MISSING DELETED DATA LOG 

flNC ERROR PER TRACK COUNTER 

fTEST DON'T PRINT ERROR SwtlTCH 

fTYPE MISSING DELETED DATA BIT 
fSET HAD ERROR FLAG 
fTVPE ADDRESS OF ERROR 



ITEST HALT ON ERROR SWITCH 

fHALT ON DELETED DATA ERROR 

fTEST NO RETRY SWITCH 

fIF SET LOG HARD ERROR 

fHAVE 10 ERRORS BEEN LOGED 

lYES LOG HARD ERROR 

|N0» REREAD SECTOR 

fSET INC INST, FOR UNIT ERROR LOG 

ITEST FOR UNIT I ERROR LOGS 



ITYPE UNRECOVERABLE DELETED DATA ERROR 



JREAD NEXT SECTOR 

ITHIS IS NOT A DELETED DATA TRANSFER 

fSET INC INST, FOR UNIT ERROR LOG 

ITEST FOR UNIT 1 ERROR LOGS 

fUNEXPECTEO DD BIT SET 

ISET HAD ERROR FLAG 

fINC ERROR PER TRACK COUNTER 
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usi 


005436 


032777 


02aw00 173550 




U22 


3054aa 


001314 






U23 


005aab 


104400 


014«62 




ilia 


005452 


300702 






ilSS 


305454 


000207 




HfeTyRNS 


1126 










uar 










1158 










U29 








?!***«** 


ii30 










ilil 










U3a 










Ui3 










llH 


005456 


005137 


00ai22 


wTROCKJ 


U35 


005462 


004737 


01M312 




1136 


0^15466 


0047S7 


011144 


XwTROCK! 


Ui7 


005472 


004737 


0l0bi« 




1138 


005476 


004737 


0U254 


ISI 


U39 


005502 


004737 


0fe;31l2 




U«5? 


035506 


304737 


005526 




IHl 


035512 


005337 


011356 




iH2 


005516 


001367 






U«3 


005520 


004737 


010732 




ll«a 


905524 


000760 






U'^S 










IH6 










1H7 








!;*»**&* 


lt«3 










IH9 










i|S0 










ilSl 










U52 


005526 


052701 


lid04?00 


RtAOCHKJ 


1153 


005532 


004737 


0(!l420ld 




U5a 


005536 


005737 


012306 


EMPBUFFl 


1155 


005542 


001002 






uu 


!?05544 


000137 


006432 




1137 


0(35550 


005037 


U«36434 


2$! 


ilSS 


005554 


005037 


0^6442 




U59 


035560 


052701 


000200 




116!? 


005564 


004737 


005656 




1161 


3^5570 


003037 


00574© 




1162 


30557a 


012740 


006212 




U6S 


3'<35b5^0 


012746 


005750 




U6a 


1^05604 


005046 






1165 


005606 


012746 


005614 




1166 


005612 


000002 






1167 


f.056l4 


012777 


000103 173364 


isi 


1168 


005622 


004737 


0k37eil4 


EMPFUAG! 


116!} 










U70 


205626 


U7737 


173356 0kJ6436 


CKBYTt: 


il7i 


B05o34 


063737 


006(436 01^5746 




U7a 


005642 


123720 


006436 




1173 


005646 


001054 






l\H 


005650 


005237 


006^3i4 




1175 


^05654 


000762 






1176 











BIT »SW13,#SWR 
BNE CONTll 
TYPE ,HUNXUD 
BR UUfcRR 
RTS PC 



ITEST DON'T PRINT ERROR SWITCH 
ITVPE UNEXPtCTeO PELETEU DATA BIT 



s*«i**«Aaft* 



a«(»*ft*ft*!!fft*«ft**Sfft^** 



fWRlTE. ALL SkCTORSiRtAD AND VERIFY ALL SECTORS 
f T a 3 



COM RDAFTwr 

JSR PCGETPATTERN 

JSR HCINITTRACHS 

JSR HCGETUNIT 

JSR PCGETTRACK 

JSR PCfWRITE 

JSR PL#READCHK 

DEC TRKCNTR 

HnE is 

J&R PC, STOP 

6R XWTROCK 



ISET HEAD AFTER WRITE FLAG 



iftA«ft*A*5!i**i!iftlif*4ftA***AA*1»***ft* 



;REA0 a sector, empty the sector BUFFER AND VERIFY 
MHE DATA READ AGAINST CORE DATA BUFFER 



BIS »BITlb,Rl 

JSR PC, READ 

TST SECCNTR 

HNE 2S 

JHP EXIT 

CLR bYTECNTR 

CLR ERCNTR 

BIS »eiT7,Hl 

JSR PCAUJSUM 

CLR CK5UM 

HOV »EMPD0NE,»CSP3 

MOV SEMPER, -CSP) 

CLR -ISP) 

MOV »IS,-CSPJ 

WTI 

MOV «£ttIE,PRXCS 

JSR PCTRCK 

MOVd ?KXna,8ADHYTE 
AOD 6AUeYTfc,CKSUM 
CiPn aADBYTE, CR0)+ 
BNE IJATAEH 
InC BYTfcCNTR 
BR £MPFt,AG 



;SET READ ONE SECTOR FLAG 

JGO RtAu ONE SECTOR 

UF CLEARED NO SECTOR WAS FOUND 

JGO TO NEXT TRACK CAN'T READ THIS ONE 
JCLEA« THfe flYTE AND ERROR COUNTERS 

.•Rl eiT 7 IS USED AS FIRST ERkOk FLAG 

JADJUST DATA AND CK SUH FOR ADDRESSES 

fSET UP FOR CHECK SUM ACCUMULATION 

JSET UP RETURN AODRfcSSES 

fLOi^ER INTERUPT LEVEL 



JLDAO EMPTY SuFFEh FUNCTION 
ITEST FOR TK FLAG 

ISAVE BYTE FROM DISKETTE 
lACCUMULATE CHECK SUM 
^COMPARE AGAINST GOOD BYTE 
IIF NOT EUUAL GO TO DATaER 

;GET NEXT BYTE 
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U77 


B05656 


113737 


011360 


016604 


ADJSUM! 


MOVB TARGET, euFADR 


1178 


005664 


U3737 


012310 


016605 




MOVH TSECT0R,8UFADR+1 


1179 


C05672 


013737 


010612 


005746 




MOV SUMjCKSUM 


1180 


205700 


063737 


011360 


005746 




ADD TARGET, CKSUM 


1181 


005706 


063737 


012310 


005746 




ADD tStCTOR, CKSUM 


1182 


005714 


113737 


005746 


017002 




MOVB CKSUM, BUFADR-»'176 


1183 


005722 


106337 


B05746 






ASLB CKSUM 


U84 


005726 


105437 


005746 






NEGO CKSUM 


1185 


005732 


U3737 


005746 


017003 




MOVB CKSUM, eUFADR+177 


1186 


005740 


312700 


016604 






MOV »BUFADR,R0 


1187 


C05744 


000207 








RTS PC 


1188 














1189 


0£'5746 


000000 






CKSUMI 





1190 














1191 


005750 


005726 






EMPERS 


TST tSP)* 


1192 


005752 


012737 


015402 


003264 




MOV »MfcMPTY,PTYPl+2 


1193 


005760 


012737 • 


015402 


003354 




MOV »MtMPTY,PTYP2+2 


Ii9a 


005766 


012737 


005536 


003334 




MOV »EMPBUFF,PCQNT*2 


1195 


005774 


000137 


003244 






JMP PARTEST 


1196 














1197 


006000 


052737 


000400 


010704 


DATAER! 


BIS »BIT8,UNIT8EL 


1198 


006006 


005237 


006442 






INC ERCNTR 


1199 


306012 


104405 








CKSiNM 


1200 


006014 


332777 


020000 


173172 




BIT »SW13,PaWR 


120i 


006022 


001062 








BNE NOtRTYP 


1202 


006024 


0327T7 


010000 


173162 




BIT »SW12,#SWR 


1203 


006032 


001404 








BEQ IS 


1204 


006034 


023727 


006442 


000012 




CMP ERCNTR, «10, 


1205 


3W6042 


003052 








8GT NOtRTYP 


1206 


006044 


005737 


004126 




ISI 


TST UATACK 


1207 


006050 


001403 








BEQ 2S 


1208 


006052 


105701 








TST8 Rl 


1209 


006054 


100017 








(JPL TYPERR 


1210 


006056 


000412 








BR 3S 


1211 


006060 


105701 






2SS 


TSTB Rl 


1212 


006062 


100014 








BPL TYPERR 


1213 


006064 


104400 


015052 






TYPE ,MCRLF 


1214 


006070 


104400 


014527 






TYPE ,MDEHHOR 


1215 


006074 


104400 


015052 






TYPE ,MCRLF 


1216 


006100 


004737 


007716 






JSR PCTYPAOR 


1217 


006104 


104400 


014616 




3SI 


TYPE ,MCQUMUN 


1218 


006110 


042701 


000200 






BIC »BIT7,Rl 


1219 


006114 


013737 


006434 


006126 


TYPERRS 


MOV BYTECNTR,1S 


1220 


£06122 


004537 


0l«446 






JSR R5,SGLDEC 


1221 


006126 


000000 






l$i 


OPEN 


1222 


006130 


104400 


015047 






TYPE ,UBLSP 


1223 


006134 


013746 


006436 






MOV BADBYTE,-CSP5 


1224 


006140 


104402 








TYPOS 


1225 


006142 


000003 








.WORD 3 


1226 


006144 


104400 


B1&047 






TYPE ,UBL5P 


122? 


006150 


114037 


0b}6440 






M0V8 -CR0),GOOOBYTE 


1228 


006154 


005200 








INC R0 


1229 


006156 


013746 


006440 






MOV eOODBYTE,»CSP) 


1230 


006162 


104403 








TYPON 


123i 


006164 


104400 


015052 






TYPE ,MCRLF 


1232 


0i6i7a 


104405 






NOERTYP! 


CKS^R 



fSET FIRST AND SECOND BYTES WITH ADDRESSES 

IGET THE PATTERN SUM 
MOD TRACK ADDRESS TO CHECK SUM 
fADD SECTOR ADDRESS TO CHECK SUM 
IINSERT CHECK SUM TO DATA BUFFER 
IGENERATE NEGITIVE CHECK SUM 

IINSERT NEG,SUM INTO DATA BUFFER 
ISET ADDRESS OF BYTE IN R0 
IRETURN 



IREMOVE THE DONE RETURN FROM THE STACK 
IPUT AODR OF EMPTYBUF MESSAGE IN PAR ER TYPOUT 1 
IPUT ADUR OF EMPTYBUF MESSAGE IN PAR ER TYPOUT 2 
INOT HARD ERR RETURN THROUGH PCONT TO EMPTYBUF 
IREPORT PARITY ERROR 

ISET THE HAD ERROR FLAG 
IINC THE BYTE ERROR COUNTER 

ITEST PRINT ERROR SW IN SWR 

IDON'T PRINT THE ERROR 

ITEST PRINT 10 ERRORS Sl-ilTCH 

IPRINT ALL ERRORS 

IHAV6 10 ERRORS BEEN TYPED 

IYES,OON'T PRINT ANY MORE 

IWAS THIS A READ CHECK DUE TO CRC ERROR 

INO, REPORT DATA ERRORS 

|YES,TEST FIRST ERROR FLAG 

ITYPE THE DATA CRC ERROR 

ITEST FIRST ERROR FLAG 



IPRINT ERROR HEADER 

IPRINT TRACK AND SECTOR LOCATIONS 
ISET UP COLMUN HEADINGS 
ICLEAR FIRST ERROR FLAG 
IPRINT BYTE NUMBER 



IPRINT BYTE READ FROM DISKETTE 



IGET GOOD BYTE 

IRETURN R0 TO NEXT BYTE IN BUFFER 



IPRINT GOOD DATA 
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1333 


006172 


005777 


173016 


t23« 


006176 


100001 




lais 


006200 


000000 




1236 


006202 


005237 


006434 


1237 


006206 


000137 


00bo22 


1236 








1239 


006212 


005737 


004126 


12<»0 


006216 


001401 




1241 


006220 


000207 




12'»2 


006222 


005737 


006442 


1243 


006226 


001471 




I2«a 


006230 


104405 




12«5 


006252 


032777 


020000 172754 


i2«6 


006240 


001024 




I2«7 


006242 


104400 


015333 


1248 


006246 


013737 


006442 006260 


1249 


306254 


004517 


014446 


1250 


006260 


000000 




1251 


006262 


104400 


016327 


1252 


006266 


105737 


005746 


1253 


006272 


001403 




1254 


006274 


1044^0 


016067 


1255 


006300 


000402 




1256 


006302 


11^4400 


016322 


1257 


006306 


104400 


015052 


1258 


006312 


012703 


017062 


1259 


006316 


304737 


0216*4*1 


12b0 


006322 


005213 




1261 


006324 


004737 


003770 


1262 


006330 


104405 




1263 


006332 


032777 


004(^00 172654 


1264 


006340 


001007 




1265 


006342 


0-45337 


ei70l2 


1266 


006346 


001404 




1267 


006350 


004737 


004246 


1268 


006354 


000137 


005536 


1269 


006360 


012733 


017122 


1270 


006364 


004737 


021044 


12M 


006370 


005213 




1272 


006372 


104400 


015240 


12?3 


006376 


104a00 


015755 


1274 


0196402 


104400 


P114527 


1275 


006406 


104400 


015052 


1276 


0^6412 


005337 


01230b 


1277 


Z06416 


001405 




1278 


006420 


004737 


0id43ia4 


1279 


006424 


000137 


005536 


1280 


?'06430 


005001 




1281 


0^6432 


000207 




1282 








1283 


006434 


000000 




1284 


006436 


0K)0lfl'?0 




1285 


006440 


000000 




1286 


306442 


000000 




1287 








1288 









HLT14; 
CONT20! 



4SI 
5$J 

2$: 



3SI 

EXITI 

BYTECnTRJ 

baobyte: 
guodbyte: 

ERC^TR! 



tst »swr 

8PL C0NT2!d 
HAUT 

INC bytecntr 

JMP tHPFLAG 

TST DATACK 

BEQ IS 

RTS PC 

TST fcRCNTR 

HEO C0NT3 

CKSWK 

6IT »SW13,PSWR 

8NE 2S 

TYPE ,MEHCT 

MOV fcRCNTR»3S 

JSR H5,SGLUEC 

OPEN 

TYPE ,MSUM 

TST6 CKSUM 

eEQ 4S 

TYPE ,MfcRS 

yR 5$ 

TYP£»MliOUU 

TYPt ,MCRLF 

MOV »ZIJATALDG,R3 

JSR FCUILOG 

INC IRi) 

JSH PC»THKEHR 

CKSww 

BIT #SWll,#SWR 

BNE bS 

DEC UATARETRY 

BEQ bS 

JSH PC.REKtAO 

JMP tMHBUPF 

MOV »ZMDATAL.0G,R3 

JSR PCUIUOG 

INC {.Hi) 

TYPE ,UBUl.F 

TYPt ,MUNHEC 

TYPE jMOENHDW 

TYPE jMCRLF 

UfeC 3ECCNTR 

titQ kXlT 

JSR HCXREAD 

JMP EMPBUFF 

CL.R HI 

HTS PC 



******************* 



ITEST HALT ON ERROR SWITCH 



,-WAS THIS REAOCHECK CAUSED 8Y CRC ERROR 

|N0, CONTINUE 

lYES, RETURN TO CRC ERROR HANDLER 

}WAS THERE ERRORS 

KNO ERRORS 

>YES,TEST DON'T PRINT SWITCH 

JDON'T PRINT THE ERROR 

JPRINT THE TOTAL DATA ERROR COUNT 



IINDICATE IF CHECK SUM WAS GOOD OK HAD ERRORS 



ISET INC, INST, FOP UNIT ERROR LOl» 

;TEST for unit l tRROR LOGS 

nNC DATA ERROR LOG 

UNC ERROR PER TRACK COUNTER 

ITEST NO KETRY SWITCH 
;IF SET LOG HARD ERROR 
,*HAVE 10 ERRORS BtEN LOGED 

|NO,GO REREAD THE DATA 

;G0 RECHECK THE DATA 

|YES,SET INC, INST, FOR UNIT k) ERROR LOG 

ITEST FOR UNIT 1 ERROR LOGS 

IINC HARD DATA NO STATUS ERROR 

ITYPE UNRECOVERABLE UATA NO 
ISTATUS ERROR 



IREAO THE NEXT SECTOR 
ICLEAH THE ONE READ FLAG 



; A ik A * * :«r A * « * sic « < 



*********** 
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1289 








1290 








1291 








1292 








1293 








1294 








U'^S 


006444 


004737 


010312 


1296 


006450 


004737 


011144 


1297 


006454 


004737 


010614 


1298 


e.06460 


004737 


F.11254 


1299 


006464 


004737 


005526 


1300 


006470 


005337 


011356 


1301 


006474 


001371 




1302 


006476 


004737 


010732 


1303 


006502 


000762 




1304 








1305 








1306 








1307 








1306 








1309 








1310 








1311 








1312 


B06504 


004737 


01KJ312 


1313 


006510 


004737 


011144 


1314 


006514 


004737 


010614 


1315 


006520 


004737 


011254 


1316 


006S24 


004737 


004200 


1317 


£06530 


005337 


011356 


1316 


006534 


001371 




1319 


006536 


004737 


010732 


1320 


006542 


000762 




1321 








1322 








1323 








1324 








1325 








1326 








1327 








1328 








1329 








1330 


006544 


005137 


004122 


1331 


006550 


004737 


010312 


1332 


006554 


004737 


011144 


1333 


006560 


004737 


010614 


1334 


006564 


004737 


011254 


1335 


006570 


004737 


003112 


1336 


006574 


004717 


005526 


1337 


006600 


004737 


010614 


1338 


006604 


004737 


003112 


1339 


006610 


004737 


005526 


1340 


006614 


005337 


011356 


1341 


006620 


001357 




1342 


006622 


004737 


010732 


1343 


006626 


000752 




1344 









IREAO AND VERIFY ALL SECTORS WRITTEN ciY 
{PREVIOUS WRITE FUNCTION 



rdchk: 
xruchk: 



JSR PCfGETPATTERN 
JSR PCINITTRACKS 
JSR PC»GETUNIT 
JSR PC»GETTRACK 

JSR pc»readchk 

UEC TRKCNTR 
BNE IS 
JSR PC»STOP 
BR XRDCHK 



I !*********«******************* 



*************** 



100 A READ ONLY FUNCTION ON ALL SECTORS 

ITHIS DOES NUT VERIFY THE DATA, ONLY TESTS FOR CRC ERRORS 

I T 8 5 

ROONLY! JSR PCfGRTPATTERN 

XROONLY: JSR PCINITTRACKS 

JSR PCiGETUNIT 
l$l JSR PC.GfcTTRACK 

JSR PC#REAO 

DEC TRKCNTR 

BNE IS 

JSR PC»STOP 

BR XKDUNLY 



II********************************************** 



**************** 



2$l 

151 



IWRITE AND READ CHECK ANY DATA PATTERN, AND ANY TRACK SEQUENCE 
IBUT ALTERNATE BETWEEN DRIVE UNITS UN EACH TRACK SELECTED. 
I T B 6 

ISET THE READ AFTER WHITE FLAG 



ISET UP FOR UNIT 

IGET THE TRACK TO 8E ACCESSED 



COM 


HOAFTWT 


JSR 


PCfGETPATTERN 


JSH 


PCINITTRACKS 


JSR 


PC»GETUNIT 


JSR 


PC»GETTRACK 


JSR 


PC WRITE 


JSR 


PCREAOCHK 


JSR 


PC»GETUNIT 


JSR 


PCWRITE 


JSR 


PCREADCHK 


DEC 


TRKCNTR 


BNE 


IS 


JSR 


PCSTOP 


BH 1 


3S 



I 



INOW GO TO UNIT 1 ON THE SAME TRACK 
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13<I5 
I3tt6 
I3«7 
13«8 
13«9 
1350 
1351 
1352 
1353 
i35a 
1355 
1356 
1357 
1356 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
13^0 
137i 
1372 
1373 
liU 
1375 
1376 
13^ 
13^8 
1379 
138? 
1361 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 



006630 

006642 
0'.56650 
t'06654 
006660 
006664 
026670 
006674 
006700 
306704 
306706 
006712 
i?!0672p 
(306724 
006730 
306734 
30674e 
306742 
^06746 
006754 
006756 
006762 
006770 
006772 
007000 
£*J7002 
307010 



004757 
013737 
012737 
0«35i37 
004737 
004737 
0k)4737 
004737 
^04737 
005337 
001367 
005037 
013737 
004737 
004737 
004737 
005337 
001371 
304737 
E32737 
001332 
012736 
032737 
001404 
042737 
000720 
052737 
0&0714 



U07012 000000 



307014 
30702e 
£^07024 
007030 

007032 
'?07036 
-i;i7040 
307042 

307C50 



OJ5037 
01274& 
01274b 
000002 
105777 

100001 

000207 
023727 

00 J 40 3 



010312 

011370 
000001 
004 I 22 

r.ni«4 

010614 
(^11254 
003112 
00552b 
0U356 

004122 
007012 
R1U«4 
011254 
005526 
011350 

7iiw7 32 

H«IJ100 

001200 

001000 



»TH£ FIRST HAtI- OF TEST 7 FORCES THE TRACK SEQUENCE 

JTO INCRIMENT UP THROUGH ALL THE TRACKS OPING WHITE / READ CHECK FUNCTIONS, 

;THIS VtWIFltS THAT ALL THF, TRACKS ARE ACCESSABLE. 

JTHE SECOND HALF UF THE PASS WILL USE THE SEQUENCE SELECTED BY THE 

IOPERaTOW as INDICATED BELOW, AND ONLY REAO CHECK THE DATA JUST WHITTEN, 

ITHIS VERIFIES THAT THE OaTA CAN BE READ FROM A TRACK, AFTER THE HEAD HAS BEEN 

IHOVED AWAY FROM AND BACK TO THAT TRACK, AT THE COMPLETION OF THE PASS 

jTHE DELETEO DATA BIT IN TEST CONDITIONS IS COMPLEMENTED AND THE NEXT 

IPASS WILL «t HpN UNDER THIS NEW CONDITION, 

I T a OR 7 



TtSTT! 
007012 
011370 TEST7X! 



0|H704 

001212 
001212 
001212 3$I 



SEUSAv: 



JSR PCGETPATTERN 

MOV SEUUEN,SF.QSAV 

MOV »l,SEQUEN 

COM kpAFTwT 

JSR PCINITTRACKS 

JSR HCGETUNIT 

JSR PC»GETTRACK 

JSR PC, WHITE 

JSR HCREAUCHK 

DEC THKCNTK 

yNE IS 

CLH HOAFTWT 

MOV SEUSAV,SEUUEN 

JSR PC, INITTHACKS 

JSR HCGETTHACK 

JSR PC»REAOCHK 

DEC THKCNTK 

BNE 2S 

JSR PC, STOP 

8IT «40100,UNITSEL 

ONE TEST7X 

MOV )»1200,SP 

HIT »BlT9,0TtSTP 

BtQ iS 

HIC »yiT9,DTESTp 

WP rtST7X 

bis »ttlT9,0TtSTP 

MH TtST7X 


******************** 



ISAVE THE SELECTED SEUUENCE 

IFORCE INCREMENT SEQUENCE 

»SET REAO AFTER WRITE FLAG FOR ERROR TESTING 



?IS THE FIRST HALF OF THE PASS DONE 
INO, CONTINUE WRITTING AND READING 

;yes,now on a real only 

JUSING SELECTED SEQUENCE 



JIS THIS HALF OF THE PASS DONE 

;N0, CONTINUE READ CHECKING 

»YE5,TEST FOR END OF PASS CONDITIONS 

IHAVE ALL SELECTED UNITS BEEN USED 

;IF A USED «IT IS STILL SET GO TO NEXT DRIVE 

JRESE1 STACK ADDRESS FOR ACTll EOP 

;nEXT PASS, COMPLEMENT D BIT 

111 WAS ON CLEAR IT 

;IT WAS OFF SET IT 



« iSe «r«r « « « 4 



* 4ft* ********** ******** 



JTEST FQW TRANSFER FLAG AMU PROGRAM NQT HUNG 



007200 
0(^.0i40 

■3w7k'32 



00ba34 000200 IS! 



CLR HCNTRl 

HUV »PK7,-ISP} 

MOV »3S,-C5P) 

HTI 

TSl-i #WXCS 

fc<PL IS 

HTS PC 

CMP BY rtCNTK,»12a, 

BEO 25 



JCLEAR HUNG COUNTER 

JHilSE INTEKUPT LEVEL TO INHIBIT INTEHUPTS 



JTEST FOR TH FLAG 

;SKIP NEXT INST, IF NOT SET 

;RETUPN to TRANSFER DaTa 

niAVE 128 BYTES BEEN 1HANSFERED 

.•ALLOW AN INTEHUPW IF EQUAL 



MAlNUEC-ll-OZRXA-E HACYU 27(732) 20-SEP-76 15:46 PAGE 27 
0ZRXAE,PU GET VALUE FuR SOFTWARE SWITCH REGISTER 



1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
143S 
1436 
1437 
1436 
1439 
1440 

ia«i 

I4tt2 
14<I3 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1«52 
1453 
1454 
1455 
1456 



007052 005237 007200 



007056 
007060 



307066 

007(i70 

007074 
007076 
007106 
007104 
007106 
007112 
007114 
007120 



001365 
132777 



00ia07 
005037 

Z05726 
005046 
012746 
000002 
005237 
001362 
1044^0 

000000 



007122 012603 



007124 
007130 
007136 
007144 
007146 
007150 
007152 
007160 
007164 
207170 
007172 
007176 



007200 

007202 



007204 
007210 



000040 172120 2S: 



007106 
0«3720W 
215432 



005037 
012737 
032777 
001402 
010346 
000207 
062737 
005537 
005737 
001362 
194400 



007200 
1777«0 

000040 



000001 
007202 
007202 



005237 
104405 
007212 032777 
007220 001004 

007225 104400 

007226 104400 
007232 104405 
007234 005777 
007240 100001 
0072«2 
007244 



INC HCNTRl 


;1F THE HUNG COUI 




JTHERE WAS NO TH 




MFTEP 128 BYTES 


BNE 3S 


;n0 OVERFLOW RETI 


HITq ffUDNEHIT,#RXCS 


?TEST FOR A DONE 




fPOSSABLE ERROR ( 




JTRANSFERING COMI 


SEQ "$ 


;IF DONE NOT SET 


CLR rtYTECNTW 


»CLtAR BYTE COUN" 




,'WITH TESTING FOI 


TST tSP)* 


IREMOVE THIS KETI 


CLR -CSP) 


ILOWER INTEHUPT I 


MUV »4a),-C5PJ 


ITHE INTEHUPT WI| 


RTI 


ISET ADDRESSES 


INC HCNTRl 


;allow some time 


BNE 2S 




TYPE ,MHUNG 




H&L'' 


?PROGRAM HUNG, 51 



007202 
172042 



007200 l«l 



HLT20: 



fTEST FDR DONE FLAG AND PROGRAM 
MUV C8P)+,R3 

CLR HCNTRl 

MOV »177740,HCNTR2 

PIT »UUNEBIT,#RXCS 

BEQ IS 

MOV R3,-cap) 

RTS PC 

ADD »1, HCNTRl 

ADC HCNTR2 

TST HCNTR2 

BNE 25 

TYPE ,MHUNG 

HALT 



NTER UVERFLOWES EITHER 
FLAG OR NO INTERUPT OCCURED 
TRANSFERED 

EST FOR TR FLAG 
FLAG WHICH WOULD INDICATE A 

CONDITION EXISTS WHILE 

HANDS OK DATA 

,TYPE HUNG 

TER SO IT WON'T INTERFERE 

R DDNt, 

URN ADDRESS FROM STACK 

LEVEL TO ACCEPT AN INTERUPT 

LL RETURN THROUGH PREVIOUSLY 

FOR FLAG TO SET 



lADDRESS OF WAITING LOOP 

HUNG 

ITAKE THE RETURN ADDRESS OF THE STACK INCASE 

ITHE PROGRAM IS EXPECTING AN INTEHUPT AT DONE 

ICLEAR THE LOWEH HUNG COUNTER 

ISET UPER COUNTER FOR 31 FULL LOOPS 

I TEST FOR DONE FLAG 

UF NOT SET SKIP RETURN 

IPUT RETURN ADDRESS BACK ON THE STACK 

IRETUHN 

;wHEN THE DOUBLE WORD COUNTER OVEHFLOWES 

ITHE PROGRAM MUST BE HUNG 

JIF NO OVERFLOW RETEST FOR DONE 

IPROGRAM HUNG, CONTENTS OF R3 (177703) HOLOES 
JADDRESS OF WAITING TEST, 



HCNTRll 
HCNTR2: 



017034 
020000 



015260 
ei5052 



171754 
007250 



177740 
MN INTERUPT DID NOT OCCURE AT A FUNCTION DONE FLAG, 

IINC INTERUPT ERROR COUNTER 
JTEST DON'T PRINT ERROR SWITCH 



MLT15! 
CONT215 



INC INTER 

CKSWH 

BIT »SW13,#SWR 

BNE 1$ 

TYPE ,MINTtR 

TYPE ,MCRLF 

CKSWH 

TST l»SWR 

BPL C0NT21 

HALT 

JSR PCiINTSERV 



ITYPE NO INTERUPT ON DONE ERROR 
ITEST HALT ON ERROR SWITCH 



IHALT ON ERROR 

IJSR TO INTSERV AS IF IT WAS AN INTERUPT 



||*******ft«*t***ft*********A*«******A***«r******«****«*****«****«(** 



OIRMAEsPli GET VALUE FO^ SOFTWARE 






l«S7 












rlNTERUPT SEHVICE 


uss 














H39 


007350 


117737 


171734 


010070 


INTSERVS 


MOVB 8fKXOB,A3TAT 


H60 


007256 


005777 


171724 






TST fRXCS 


IS&l 


2107262 


100450 








BMJ NXtRROR 


H6a 


007264 


032737 


000004 


010070 




BJT s?8IT2»ASTAT 


1463 


007272 


001402 








»tQ 2S 


I46Q 


307274 


000137 


0M7702 






JMP HXFWR 


HbS 


007300 


032737 


0130003 


010070 


2SJ 


BIT »3,ASTAT 


Hfe6 


007306 


001023 








ywE IS 


lafeT 


007310 


132777 


000^40 


171670 




BlTa #l>ONtBIT,#RXC 


la&s 


007316 


001014 








9NE is 


H69 


007320 


005237 


0i7ia32 






INC UKNINT 


H70 


B07324 


104405 








CK8«H 


iari 


007326 


032777 


020000 


171660 




BIT »8W13,#SWR 


H72 


007334 


001004 








BNE HB 


HU 


007336 


104400 


015312 






TYPE fMUKNINT 


U74 


007342 


10440k) 


015052 






TYPE ,MCRLF 


1475 


037346 


0000^2 






4SI 


RTI 


1476 


007350 


062706 


000006 




3$l 


ADD »6,SP 


1477 


007354 


000207 








RTS PC 


1478 


007356 


005237 


017030 




ISl 


INC NOtRLOG 


1479 


007362 


104405 








CKSWH 


1480 


307364 


032777 


020000 


171622 




eiT »SW13,3SWR 


1481 


007372 


001004 








BNE HXtRKOR 


1483 


007374 


104400 


016034 






TYPE ,MNOFl.AG 


1483 
1484 
1485 


007400 


104400 


015052 






TYPE ,MCWLF 


007404 


052737 


000^00 


010704 


RxkRROR! 


BIS »t31T8,UNlTStL 


I486 


007412 


012737 


000012 


017014 




MOV »10,,P2RtTRY 


1487 


007420 


012777 


000017 


17l5fay} 


2S! 


HOV »ROER,PPXCS 


1488 


007426 


004737 


0W7122 






JSR PCiDONECK 


1489 


007432 


032777 


00k3002 


171550 




BIT 82,?RX0B 


1490 


007440 


001403 








eEQ 1$ 


l«9i 


007442 


004737 


002046 






JSR PC»STATF.R 


1492 


007446 


000764 








6R 2S 


1493 


007450 


117737 


I7l53tt 


010072 


i$I 


MOVa UKXOliiBSTAT 


1494 


007456 


005737 


010072 






TST bSTAT 


1495 


007462 


001407 








«E0 NOPRNT 


H'^e 


007464 


013705 


010072 






NOV ttSTAT,R5 


1497 


007470 


006005 








ROR H5 


1498 


007472 


006005 








ROR R5 


1499 


007474 


062705 


017130 






ADO «EHC00E-2,R5 


1500 














1501 














1503 


007500 


005215 








INC CR53 


1503 


007502 


104405 






NQPRNTJ 


CRSiMR 


1504 


007504 


032777 


020000 


171502 




BIT »SW13,#SWW 


1505 


007512 


001032 








BNE 2S 


1506 


007514 


104400 


015052 






TYPE jMCRUF 


1507 


007520 


104400 


015063 






TYPE ,MERHEADER 


1508 


007524 


104400 


016142 






TYPE ,MPASS 


1539 


007530 


013737 


021042 


007542 




MOV PA5CNTK,1S 


1510 


007536 


004537 


014446 






JSR R5,SGUDEC 


1511 


007542 


000000 






l$s 


OPEN 


isia 


007544 


10«400 


015052 






TYPE ,MCRLF 



ISAVe THE ERROR AND STATUS WORD 

JTES7 THE ERROR FLAG 

fTHERE WAS AN ERROR GO REPORT IT 

IIS INIT UONE SET 

rNO, CONTINUE 

IVES, REPORT POWER FAILED AND RESTART 

rARE PAR OR CRC BITS SET 

I YES GO LOG ERROR 

lis DONE SET 

IIF SET RETURN TO TEST 

UNC UNKNOUiN INTEHUPT ERROR LOG 

ITEST DON'T PRINT ERROR SWITCH 

IDON'T PRINT 

ITYPE UNKNOWN INTERUPT 

fRETURN FROM THE INTEHUPT 

^BYPASS INTERUPT POINTERS ON STaCK 

fRETURN TO PROGRAM 

;nO STATUS ERROR FLAG ERROR 

;TEST UON'T PRINT ERROR SWITCH 

ITYPE NO STATUS ERROR ERROR 



;SFT HAD ERROR FLAG 

;SET RETRY COUNTER 

IGET THE ERROR COUE 

ITEST FOR DONE FLAG 

;WAS THERE A PARITY EWRgR 

INO, CONTINUE 

;YES,G0 REPORT THE PAHITY ERROR 

;REISSUE THE FUNCTION 

ISAVE THE ERROR CODE IN rt STATUS 

IIS THERE A DEFINITE COUE 

INO , CONTINUE 

I ADJUST ERROR CODE TO PRODUCE AN EVEN ADOR 

lOF THE CORRESPONDING COUNTER 

lAOU ON AUDR OF ERROR LOG -2, AS THERE IS NO 
lERRDR CODE. THE CONTENTS OF R5 WiLL READJUST 
lAODRESS TO CORRECT LOG, 
fINC THE CORRECT ERROR CODE COUNTER 

ITEST PRINT ERROR SWITCH IN SwR 



ITYPE ERRUR HEADER 

I TYPE PASSES COMPLETED AT ERROR 



MAlN0EC«il«02RXA«E MACYU 27(732} 20-SEP»76 15J«6 

0|RXAE«PU GET VALUE FOR SOFTWARE SWITCH REGISTER 



1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1523 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 

is3a 

1539 
1540 
1541 
1542 
1543 
1544 
154S 
1546 
1347 
1548 
1549 
1530 
1551 
15S2 
1533 
1554 
15SS 
1536 
155T 
1550 
1559 
1560 
1561 
1562 
1363 
1364 
1565 
1566 
1567 
15&S 



007550 
007554 
007560 
007562 
007563 
007564 
307570 
007574 
007600 
007606 
007610 
007616 
007622 
007624 
007632 
007634 
007642 
007644 
007650 
907652 
007656 
007660 
307664 
007670 
007674 
007700 

007702 
007706 
007712 



007716 
007722 
007730 
007734 
007736 
007742 
007730 
007756 
007762 
007764 
007770 
007776 



0012 
0016 
0022 
0324 
0025 



010@32 
010036 
010042 



104400 

013746 

104402 

003 

000 

004737 
104400 
004737 
032737 
001006 
012777 
004737 
000404 
012777 
000771 
032777 
001403 
004737 
000753 
105777 
100406 
104400 
104400 
004737 
062706 
000207 

104400 
104400 
000137 



104400 
013737 
004537 



013737 
042737 
004337 



015167 

004120 



007716 
015052 
010250 
000020 004120 2$! 



MOV 
TYPOS 
.BYTE 
.BYTE 



000013 
007122 

000033 

000002 

002046 

171332 

015016 
015052 
01M074 
000004 



016344 
014136 
002700 



1 
032737 

001003 

104400 01S106 
000402 
104400 
104400 
013746 
104402 
001 



015116 
015244 
010420 



171370 

5SS 

171354 6$I 

171346 7Sl 



014555 

011360 007734 



014604 

012310 007762 
177740 007762 
014446 

013047 

000020 010704 



TYPAORJ 
3SI 



l$l 
TYPSEL! 



104400 
104400 
013746 
104402 



013047 
®15S50 
002140 



MOV 
TYPOS 
,8YTE 
,BVTE 



MOV 
TVPQS 



ION 
XCS 



TYPt ,MRXCS 

functiun,«cspj 

3 



JSR PC#TYPAOR 

TYPE ,MCRLF 

JSR PCiTYPCODE 

BIT »BIT4,FUNCT 

BNE 6S 

MOV »RD0STAT,fR 

JSR PCiOONECK 

HR 7$ 

MOV »RD1STAT»#R 

BR 55 

BIT »2,#RXDB 

BEQ 3$ 

JSR PC, STATER 

BR 2S 

TSTB #HXDB 

BMI «$ 

TYPE jMNOORY 

TYPE ,MCRLF 

JSR PCOELUNIT 

ADO #4,SP 

RTS PC 

TYPE ,MRX11 
TYPE ,SPOWEP 
JMP RESTART 



TYPE ,MTRK 

MOV TARGET, 3S 

JSR R5,S6LPEC 

OPEN 

TYPE ,MSECT 

MOV TStCT0R,2S 

8IC »177740,2S 

JSR R5,SGLDEC 

OPEN 

TYPE ,D8LSP 

BIT »BIT4,UNITSEL 

BNE IS 

TYPE ,MUN1T0 

BR TYPSEL 

TYPE ,MUNITi 

TYPE ,MPAT 

PAT,-CSP) 



ITYPE COMMAND STATUS MbGISTER 
IISAVE FUNCTION FOR TYPEOUT 
IIGO TYPE--OCTAL ASCII 
IITYPE 3 OIGITCS) 
IISUPPRESS LEAPING ZEROS 

ITYPE ADDRESSES AND RUN CONDITIONS 



IPRINT THE STATUS REGISTERS 
IWHAT DRIVE IS BEING USED 

IDRIVE 13 UEING USED 
ITEST FOR DONE FLAG 

IDRIVE 1 BEING USED 

IWAS THERE A PARITY ERROR 
INO, CONTINUE 
lYES, REPORT THE ERROR 
IREISSUE THE COMMAND 
IWAS DRIVE READY SET 
lYES RETURN 



INO GO DELETE THAT UNIT 

IMOVE ERROR RETURN TO TOP OF STACK 



lONLY THE RXll POWER HAS FAILEP 
IPRINT POWER FAILED 
IGO TO RESTART 



ITYPE TRACK ADDRESS 



ITYPE SECTOR ADDRESS 

ICLEAR ALL BUT SECTOR ADDRESS 



IWHITCH DRIVE IS BEING USED 
ITYPE UNIT 



I 



TYPE ,DBLSP 

TYPE ,MTEST 

TE8T,«tSPJ 



ITYPE UNIT 1 
ITYPE PATTERN CODE 

IISAVE PAT FDR TYPEOUT 

IIGO TYPE— OCTAL ASCII 

IITYPE I OIGITCS) 

IISUPPRESS LEADING ZEROS 

ITYPE TEST CODE 
IISAVE TEST FOR TYPEOUT 
IIGO TYPE— OCTAL ASCII 



DZRxaEtPll 6kT V&LUE FOB SOFTWARt 8i«JlTCH WEGISTEw 



IS«39 
1170 
ISM 
i5f2 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
158a 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
15«*5 
1596 
1597 
1598 
1599 

ua? 

U0l 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1623 
1621 
1622 
1625 
1624 



3100^4 
010045 
U10046 
010*352 
010056 
010062 
010064 
010065 
010066 



001 

000 

1^4400 

104400 

013746 

104402 

001 

000 

000207 



010200 

310206 
310214 
01-5220 
010226 
010230 
010234 
010236 
0102^4 
010250 
010254 
010260 
010262 
010263 
010264 
C10270 
.1)10274 
P10300 
013302 
(510303 
010304 

cii03ia 



015047 
015254 

0iU70 



.BYTE 
,6YTE 



TYPOS 
.BYTE 
«8YTe 



010070 000000 
010072 030000 



010074 
010102 
010104 
ei0110 
010114 
010120 
010126 
010132 
010134 
010140 
310184 
310150 
010154 
013162 
t?10166 
01017(3 
010174 



132737 

001016 
104400 
104400 
104400 
042737 
005737 
100020 
000137 
104400 
104400 
10a400 
042737 
105737 
100762 
305137 
000137 



117737 

013777 
004737 
032777 

001403 
004737 
0.30764 
117737 

104400 

104400 

01374b 

J04402 

003 

05!0 

104400 

104400 

313746 

1U4402 

«J03 

000 
104400 
000207 



ASTATJ 
BSTAT5 

000020 004120 OtLUMiT! 

015106 
015126 

015240 

000200 010704 

010704 



002726 
015116 
015126 

0113240 

100000 010704 

fe'.1070« 

022514 

021062 



2SI 
3SI 



171004 

000017 

00n22 

000002 
002046 

170746 

015052 
015210 
010P70 



015040 
015224 

fcl0072 



010070 HOCODE! 
170772 2S! 



010V272 l$! 



MOV 
TYPOS 
.BYTE 
,BYTt 



MOV 
TYPOS 
.BYTE 
,8YTe 



TYPE jOBUSP 
TYP£ ,MSEQ 
SEQUtN,»CSP3 



llTYPe 1 OlblTCS) 
IISUPPHESS LEADINii ZEROS 

?TYPE SEQUENCE COUE 
IJSAVE SEQUEN FOR TYPtOUT 
neO TYPE — OCTAL ASCII 
fiTYPE 1 0IGITCS3 
IISUPPHESS LEADING ZEROS 



BITB #aiT4, FUNCTION 

BNE is 

TYPE ,MUN1T0 

TYPE ,HOELET 

TYPE fUBLLF 

BIC »»IT7,UNITSEL 

TST UNITSEL 

BPL li 

JMP TESTStL 

TYPfe ,MUNITl 

TVPt,HU£LET 

TYPE ,U8LLF 

MIC »BXT15, UNITSEL 

TSTri UNITSEL 

BNI 25 

COH SHORTHPT 

JMP tRUUMP 



MOVd ^HXDBiASTAT 
MOV »HIJ£R,?RXCS 
JSR HCOONtCK 
BIT »2i#RXDb 
HEO IS 
JSR PCiSTftTER 

BR as 

MOVd PNXDO.BSTAT 
TYPt ,MCRLF 
TYPE ,MASTAT 
ASTAT,«CSP3 



ITEST FOR PRESENTLY USED UNIT 
lUNiT HAS BEEN DELETED FROM USE 



ICLEAR UNIT SELECTION BIT 

;WAS UNIT I SELECTED FOR USE 

JUNIT I NUT SELECTED GO DUMP ERROR REPORT 

^CONTINUE ON OTHER UNIT AT BEGINING OF TEST 

JUNIT 1 HAS BfeEN OELETEU FRUM USE 



ICLEAR UNIT 1 SELECTION BIT 

IWAS UNIT SELECTED FOk USE 

;YES CONTINUE ON UNIT 

;SET SHORT REPORT FLAG 

;CAN»T CONTINUE TYPE UUT STATISTICAL REPORT 



ISAVE THE A STATUS 

••READ The 8 STATUS kEGISTER 

IWAIT FOR nONt FLAG 

;wAS THERt A PAklTY ERRuR 

; NO, CONTINUE 

JYESfHtPOKT THE PARITY tRRQR 

fRETRY READING STATUS B 

;SAVE THE B STATUS CODES 



TYPt ,TaH 
TYPt ,MdSTAT 
HSTAr,«CSPJ 



TYPE ,MCRLF 
RTS PC 



JTYPE THE CONTENTS OF THE 
nSAVfc. ASTAT FOR TYPEOUT 
HGO TYPE--UCTAL ASCII 
HTYPE 3 DIbIT(S3 
fiSuPPRESS LEADING ZEROS 



nSAVE BSTAT FOR TYPEOUT 
ffGO TYPE-»UCTAL ASCII 
ffTYPE 3 DIGIT(S3 
nSuPPRESS LEADING ZEROS 



Two STATUS REGISTERS 



MAINDEC»11«DZRXA»E MACYll 27(732) 20-SEP»7b 15546 
OZRXAE.Pll GET VALUE FOR SOFTWARE SWITCH REGISTER 



1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 



010312 
2110320 
010324 
010330 
010332 
010340 
010344 
010346 
010350 
010354 
010360 
010362 
010366 
010372 
010376 
010402 
010406 
010412 



010416 
010420 



n*******»***«***9Aa«***********«A***ft*ft**ft*****A«**#A**ftft**«,«* 



lOECOOES THE DATA PATERN SELECTED IN THt SWR 
I 

; 
> 
I 
f 



BITS 6, 7, AND a OF THE INITIAL SwH SELECTED THE DATA PATTERN 
TO BE USED AS FULLQWS: 



DATA PATTERN 

NO PATTERN SPECIFIED (FORCE RANDOM DATA) 

ALL ZEROS 

ALL ONES 

FLOATING ZERO 

FLOATING ONE 

ALTERNATING BITS 

ALTERNATING PAIRS OF BITS 

RANDOM 



;note: all data patterns will be modified so the first byte will 

ICONTAIN THE track address, THE SECOND BYTE WILL CONTAIN THE UNIT 
INUMBER and sector address IN WHICH THE DATA IS WRITTEN, THE LAST 
ITWO BYTES CONTAIN THE CHECK SUM NUMBERS, 



142737 

005037 
005737 
001003 
012737 
013704 
005304 
006304 
150437 
012704 
000777 
000137 
000137 
000137 
000137 
000137 
000137 
000137 



000377 
010612 
010420 



010360 GETPATTERNI 



000007 010420 



010360 
016606 

010422 
010434 
010444 
010506 
Q10S14 
010534 
010544 



BICB *377,»i!tBR0NPAT 

CLR SUM 

TST PAT 

BNE IS 

MOV »7,PAT 

MOV PAr,R4 

DEC R4 

A8L R4 

BI3B R4,*»aR0NPAT 

MOV »8UFADR+2,R4 

BR , 

JMP DATA0 

JMP UATAl 

JMP FLUAT0 

JMP FLOATl 

JMP PAT125 

JMP PAT314 

JMP RANDATA 



ICLEAR BRANCH OFFSET 

ISET UP FOR ACCUMULATION OF CHECK SUM 

;IF NO PATTERN SPECIFIED FORCE PATTERN 7 



IGFT PATTERN BITS 

lAOJUST FOR CORRECT OFFSET 

IINSERT OFFSET 

ISET UP ADDRESS OF FIRST BYTE 

IBRANCH BY OFFSET SELECTED 

1000 DATA BYTE 

1377 DATA BYTE 

IFLOAT A a THROUGH ALL I'S 

IFLOAT A 1 THROUGH ALL 0'S 

1125/052 DATA WORD 

1314/063 DATA WORD 

IRANOOM DATA BYTE 



010422 005037 010416 



0ATA8YTE! 
PATS 



||**A«r«ri»ftft***#t*ft)!r*»**iS(***»*A****AAA*ft)Sr**A«AaA*fts»t«**ftA*i»*«**«t»ft««( 

ILOAD 30FTWAHE BUFFER WITH ALL ZEROS 
I P 8 1 

OATA0t CLR UATABYTE 
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1681 
1682 
1683 
1684 
1685 
1686 
168T 
1688 
1689 
1690 
1691 
1692 
1693 
169a 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 



010426 004737 010564 
010432 000775 



010434 112737 
010442 000771 



10444 
10452 
10454 
10460 
10462 
10464 
10470 
10472 
10474 
10476 
10500 
10504 



010506 
010512 



112737 

000261 
012702 
iid3001 
005202 
004737 
000241 
0k)5702 

001401 

000261 
106137 
000763 



005037 
000757 



JSR fCtOAU 
&h PATUEN 



ti^Hi>'k*'kii1iliitii1i^*tii1i*ii1iiiti*iiiiiii<* 



;go load the data buffer 



********** 



******** 



************ 



000377 010416 DATAlS 



ItOAO SOFTWARE BUFFER WITH ALL ONES 

t PBS 



MOVB #377,UATABYTE 
HH PATlaEN 



f >*****«*******«* 



>*«**************************** 



IFLOAT A <d THRUUtiH ONES IN SOFTWARE BUFFER 
I P s 3 



01041b FUOAT0J 
XPATGEN! 
1S> 



ISET UP A ONES FIfcLO 

ISET THt C eiT TO ROTATE THROUGH THE DATA 

ICLR R2 (CAN'T USE "CLR" AS IT CLEARS »C" BITJ 

IBR IF THE "C" BIT IS CuEARtO 

;SET R2 IF NOT 

IGO LOAD THE DATA BUFFER 

nS R2 NONZERO 

lYESi SET THE "C" BIT 



MOVB #376,0ATABYTE 

SEC 

MOV »0#R2 

HCC 2$ 

INC R2 
2SI JSR PCiLOAP 

CLC 

T3T R2 

BEQ iS 

SEC 
lit ROLO DATABYTE 

BR 13> 

J !***************«*»***********«********************************• 

IFLOAT A 1 fHRQuGH ALL "ZEROS IN SOFTWARE BUFFER 
I P a a 

FLOATI! CLR UATABYTE 

BR XHATGEN 

;;*************************************************************** 

»LOAU SOFTWARE BUFFER WITH ALTERNATING 1 AND id FOR 
JONIE BYTE ANU THE COf^PLIMENT INTO THE NEXT 
J P « <s 



010514 112757 000125 

010522 004737 0}05e>4 

tn0526 1^5137 0l0ttlb 

010532 000773 



dl041b PAT125! 

xxpatgen: 



MUVB #125,UATaHYTE 
JSR PCiLOAU 
COMB DATABYTE 
BR XXPATGEN 



J * (SEE NOTE 3ELUW ) 



f * note: to make PATTERN 5 AND 6 COMPATABLE WITH THE RX8 PATTERNS 

fNOP THIS IrMSTRUCTION. (CHANGE THESE 2 LOCATIONS TO 0K!0d<40) 

JTHIS CHANGE IS FOR INTERPROCESSUR RX** COMP AT ABILITY TESTING ONLY, 



; ; ************* 



A********************* 



*********** 
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1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1783 
1786 
1787 
1T68 
1789 
1790 
1791 
1792 



010534 112737 K00314 
010543 000767 



010544 004737 012122 

010550 113737 012214 

010556 004737 010564 

010562 000770 



010564 
010572 

310576 
010602 
010604 
010606 
010610 



063737 
113724 

022704 
001401 
000207 
005726 
000207 



010612 000000 



010416 
010416 
017002 



010614 032737 000100 

010622 001012 

010624 105737 010704 

010630 100007 

010632 042737 040020 

010640 052737 000100 

010646 000207 

010650 005737 010704 

010654 100012 

010656 032737 040000 

010664 001006 

010666 042737 000100 

010674 052737 040020 

010702 00020? 



310416 PAT314! 



fLOAO SOFTWARE BUFFER WITH ALTERNATING PAIRS OF 1 ANU AND 
;C0MPLIHENT INTO THE NEXT 



MUVi «il4, DATABYTE 
BR XXPATGEN 



ft***************************** 



****************** 



JLOAO SOFTWARE BUFFER WITH RANOOH DATA PATTERN 
f P 8 ij 0"f 7 



010612 LQAO: 



JSR PCfRANGEN 
MOVB HANUM, DATABYTE 
JSR PC, LOAD 
BR RANUATA 

ADD DATABYTE, SUH 
MOVB DATABYTE, (R4)+ 
CMP «BUFA0R+l7b,Ra 
BEQ IS 
RTS PC 
TST (SP)+ 
RTS PC 



IGFT RANDOM NUMBER 



MCCUMULATE The PATTERN CHECK SUM 

JLOAD THE DATA BUFFER 

IHAVE 124 BYTES BEEN GENERATED 

IIF YES, RETURN TO TEST 

UF NO, RETURN TO PATTERN GENERATOR 

ITAKE PATTERN RETURN ADDRESS OF STACK 

IRETURN TO TEST 



1 1 ****************** 



***************************** 



;TEST for SELECTED UNITS, DRIVE READY, AND USED CONDITIONS 

MLSO CONTAINS A "HAD ERROR" FLAG TO BE TESTED AT EOP. 

flHE BITS IN UNITSEL ARE USED AS FOLLOWS 

I 

IBITIS sUNiT 1 SELECTED VIA SWR 

IBIT14 BUNIT I USED BIT 

laiTB bTHIS PASS HAD AN ERROR 

f8IT7 BUNIT SELECTED VIA SWR 

IBIT6 BUNIT USED BIT 

f8IT4 BUNIT SELECTION FOR FUNCTION WORD 



II ********************** 



********************************** 



010704 GETUNITI 



010704 
010704 



010704 
010704 



BIT »8IT6, UNITSEL 

8NE IS 

TSTB UNITSEL 

aPL IS 

8IC #40020, UNITSEL 

BIS »BIT6, UNITSEL 

RTS PC 

TST UNITSEL 

BPL 2S 

BIT »8IT14, UNITSEL 

BNE 2S 

BIC »BIT6, UNITSEL 

BIS W40020, UNITSEL 

RTS PC 



IWAS UNIT a JUST USED 

lUNIT USED CHECK UNIT 1 

IWAS UNIT SELECTED 

INO GO TO UNIT 1 

ICLEAR UNIT 1 USED BIT AND FUNCTION UNIT BIT 

ISET UNIT USED BIT 

IWAS UNIT 1 SELECTED 

INO RETURN 

IHAS UNIT 1 BEEN USED 

lYES RETURN 

ICLEAR UNIT USED BIT 

ISET UNIT 1 USED BIT AND FUNCTION UNIT BIT 
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1793 














nfn 














1795 














1796 
1797 
1798 


310704 


300000 






UNITStL: 













fTEST 


THAT ALL UNITS HAVE K 


1799 














1800 


010706 


005737 


010704 




UONt! 


TST UNXTStL 


16(91 


010712 


10000b 








BPL IS 


1602 


310714 


032737 


040000 


010704 




BIT »BITi4,UNlT8EL 


1803 


31^722 


001302 








HNE IS 


lS0a 


010724 


362706 


P!00W02 






ADD ■»2,SP 


1805 


010730 


000207 






u: 


RTS PC 


1806 














1807 














1808 


010732 


004737 


010706 




STOPI 


J&R PC»DONfc 


1809 


'?107 36 


005^37 


00 7200 






CLR MCNTRl 


1810 


010742 


005237 


021042 






INC PA3CNTR 


1811 


010746 


005737 


011142 






TST LHAWCT 


J812 


010752 


001005 








BNE iS 


1613 


?10754 


1044P)0 


0l5(fl52 






TVPt jMCHLF 


1814 


010760 


012737 


177670 


011142 




MOV »-/2,,CHARCT 


1815 


010766 


005237 


011142 




33): 


INC UHARCT 


1816 


Z10772 


032737 


000400 


010704 




BIT »BlT8,UNiTSEL 


1817 


^^ 11000 


001405 








8tQ 25 


1818 


011002 


104400 


015057 






TyP£ ,MeRtUP 


1819 


eU006 


000404 








BR IS 


1820 


J11010 


104400 


015055 




2s: 


TYPE, ,M£OP 


1821 


CU014 


104400 


015061 






TYPE ,MABELL 


1822 


011020 


1044555 






l&i 


CI\SWK 


1823 


011022 


032777 


t;4I^P100 


170164 




HIT »5Wl«,«JSWR 


1824 


011030 


001417 








8ta CUNT22 


1825 


ril032 


104400 


015052 






TYPE ,MCHLF 


1826 


i;11036 


104400 


fllbl42 






TYPE ,MpASS 


1827 


011042 


013737 


021^142 


011054 




MOV PAbCNTK,6$ 


1828 


311050 


004557 


01444tj 






JSR N5,SGLUEC 


1829 


011054 


300000 






bs: 


OPEN 


1832! 


311056 


1044?0 


015^52 






TYPE ,MCRLP 


1831 


■211062 


0:a0000 






HLTib: 


HALT 


1832 


011064 


005037 


fell 142 






CLR CHARCr 


1833 


311070 


042737 


040500 


010704 


C0NT22J 


BIC »40500,yNIT5EL 


1634 


011076 


022737 


000007 


010420 




CMP »7,PAT 


1835 


011104 


001002 








(SNE 2S 


1836 


^'11106 


004737 


310312 






JSR PCiGETPATTERN 


1837 


CU112 


005237 


007200 




2$: 


INC HCNTRl 


1838 


011116 


001375 








tJNE di 


1839 


011120 


0137?5 


gi00042 






MOV P#42,R5 


1840 


011124 


001405 








BEQ HERE 


1841 


011126 


000005 








WfcScT 


1842 


011130 


004715 






LOGICALS 


JSR PCi (RbJ 


1843 


?lli32 


000240 








NOP 


1844 


311134 


300240 








NOP 


1845 


311136 


000240 








NOP 


1646 


011140 


000207 






MEH£! 


RTS PC 


1847 














1848 


fill 142 


00PI000 






CHARCT! 


M 



lis UNIT 1 SELECTED 

ino return 

lyes mas it been useo 

;ye5 return 

ibypass not done reture on stack 



;HAVE all drives been USED 

JKEtP TOTAL NUMBER OF PASSES 

JHAVE 7a top INDICATORS BEEN TYPED 

lYES DO A CRLF 

PRESET CHARACTER COUNTER 

ITEST HAD ERROR FLAG 
,*N0 ERROR PRINT 
{HAD EWRDK PRINT 7 

iPRINT EOP INDICATOR 



JTEST EOP HALT SWITCH 

;AT HALT UN PASS PRINT NUMBER OF PASSES COMPLETE 



.'THIS CAUSES A CRLF AFTER HALT AT E.O.P, 
ICLEAR USED BITS, AND "MAD ERROR" BJT 
UF RANDOM DATA GtT Ntw DATA FOR OUFFER 



;WAIT FOR THE EOP INDICATOR TO BE PRINTED 
.•ACTU ENU OF PASS HOOKS 



^ 
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n ********************************* 
UNITIALIZE TRACK SEQUENCE 



BIC »100200,nD 
TST 00 
BNE 1$ 

Mova »u4,io 

CLRa OD 

MOVd OD, TARGET 
CLR XIU 
MOVo ID,XID 
CLR XOD 
MOV*J 0U,XOD 
MOV XID,TRKCNTR 
SUB XOU,TRKCNTR 
INC TRKCNTR 
BIS #100200, OD 
RTS PC 



1849 










1850 










1851 










1832 










1853 










1854 










1855 


011144 


042737 


100200 


001200 


1856 


011152 


305737 


001200 




1857 


F11156 


001005 






1858 


P11160 


U2737 


0k30l 14 


001201 


1659 


011166 


105037 


001200 




I860 


'^11172 


113737 


001200 


011360 


18bi 


011200 


005037 


011366 




1862 


011204 


113737 


001201 


011366 


18b3 


5511212 


005037 


011364 




1864 


?I11216 


113737 


001200 


011364 


1865 


011224 


013737 


0113bb 


011356 


1666 


S11232 


163737 


011364 


01135b 


1867 


0U240 


005237 


011356 




1868 


011244 


052737 


100200 


001200 


1869 


011252 


000207 






1870 










1871 










1872 










1873 










1874 










1875 










1876 










1877 










1878 










1879 










1880 










1861 










1882 










1663 










1684 










1685 










1886 










1887 










1688 










1889 










1890 










1691 










1692 


011254 


113737 


011360 


011362 


1693 


011262 


142737 


000377 


011320 


1894 


011270 


005737 


011370 




1895 


011274 


301003 






1896 


0H276 


012737 


000007 


011370 


1697 


011304 


013704 


011370 




1898 


0U310 


005304 






1899 


011312 


006304 






1900 


011314 


150437 


011320 




1901 










1902 










1903 


011320 


000777 






1904 


011322 


000137 


011372 





************* 



;CLEAR FIRST USED BITS 

ITEST CONTENTS OF I0,OD FOR 

,"IO,OD SPECIFIED USE THEM 

INONE SPECIFIED SET ID TO MAXIMUM 

JSET 00 TO MINIMUM 

UNIT 00 AS PRESENT TRACK 

UNIT WORKING ID AND UD LOCATIONS 



fSET UP NUMBER OF TRACK MOVEMENTS 
JSET FIRST TIME BITS IN ID,OD 



*********************************************************** 

;TEST FOR HEAD SEQUENCE SELECTED BY INITIAL SwR SETTING 

IBITS 0,1, AND 2 OF THE INITIAL SWR SELECTED THE TRACK SEQUENCING 

;T0 BE FOLLOWED AS INITICATED BELOW 

f 

J BITS SEQUENCE 

r NO SEQUENCE SPECIFIED (DEFAULT TO SEQ 7) 

10 1 INCREMENT FROM OD TO ID 

I PI 1 DECREMENT FROM ID TO 00 

J 1 1 DO PREVIOUS 2 SEQUENCES 

110 BOUNCE BETWEEN ID AND OD 

110 1 DECREASING BOUNCE 

; 1 I STROBE BETWEEN 00 AND DECREMENTING 10 

Jill RANDOM TRACK SELECTION 



j;**«*******«**»*********ft**************************tt****'********i 
GETTPACKJ 



MOVa TARGET, PRESTRK 

BICB #377,l«#BRONTRK 

TST SEUUEN 

BNE IS 

MOV »7,SEQUEN 

MOV SEaUEN,R4 

DEC H4 

ASL R4 

8IS8 R4,##BR0NTRK 



BR , 
JMP SEQl 



JRESET TO PRESENT TRACK 

ICLEAR OUT BRANCH OFFSET 

IIF NO SEQUENCE SPECIFIED FORCE SEQUENCE 7 



IGET SEQUENCE BITS 
JAOJUST FOR CORRECT OFFSET 

ITHIS BR INST, IS MODIFIED BY THE TEST CONDITIONS 
JSELECTED ,T0 BRANCH TO ONE OF THE SEQ, BELOW 

I8RANCH BY OFFSET SELECTED 
IINCREMENT 
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1903 
1906 
1907 
1908 
1909 
1910 
19U 
I9ia 
1913 
19H 
19IS 
1916 
191? 
1913 
1919 
1980 
1921 
1952 
1923 
19g« 
1925 
1926 
1927 
1920 
1929 
1930 
19JI 
1952 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
19<I0 
19^1 
1942 
19«3 
19«a 
1915 
1946 
1947 
1948 
19«9 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
19S8 
1939 
1960 



311326 
S)11332 
311336 
311342 
311346 
311312 

011356 
311360 
311362 
011364 
7111366 
311370 



011372 
011400 
011406 
011410 
311416 

011420 
011424 



011426 
011432 
k311434 
011442 
011450 
011452 
011456 



011460 
01H64 
311466 
011474 

311500 

aiiS04 

011510 
011514 

C11S20 

011522 



000137 
00013T 
000137 
000137 
000137 
000137 



042737 
123737 

001004 
U3737 

000461 

005237 

Ba045b 



105737 
100007 
042737 
113737 
000444 
035337 
000441 



105737 

1000«?7 
042737 
005337 
006337 
013700 
16370^ 
163700 
002342 
300723 



011426 
011460 
011524 
011bl0 
011742 
012022 



100200 
011366 



JMP SEU2 
JMP S6U3 
JMP SEy4 

jMP seys 

JMP SEQ6 
JMP SEy7 

TRKCNTRS 

TARGSTI 

PRBSTRK! 

XUUl 

XIDI 

SEQUENi 



I0ECR6MENT 

riNCREMENT/DECRtNfeNT 

IBDUNCE lU TO OD 

lOECREiiSlNG BOUNCE 

ISTRObE 

rR&NDOM 



St***»***iSfj!t*«*A****!StAS«aSt 



111 idi i^ it it ^ 



IINCREMENT FHOM OO+l TO ID AND RETURN TO OD 
I sal 



001200 
011362 



001200 011360 
011360 



SEUll 



ISI 



HIC »100200,OD 
CMPtJ XID,PRE8TRK 
BNE IS 

MUVO UUfTAHGET 
BR NfcWTRK 

INC TARGET 

BR NtWTRK 



ICLEAR FIRST TIME BITS 

IPRESENT TRACK EOUAL TCI ID 

fNO GET NEW TRACK 

lYES RETURN TQ DO 

INEWTRK INCREMENTS THE TRACK MOVED TO COUNTER 

lAND RETURNS TO NEXT TRACK 

lADO I TO TARGET TRACK 



*^**A*«*ft«r*ft***Sft«* 



«r««A<tftft««i«««»;yk««r<l!«««r 



«r * * * * «r ft « * * A * A 



100200 001200 

01136b 011360 



JDECREMENT FROM lu TO 00 
f S 3 2 

TSTB ID 

BPL IS 

BIC »100200,OD 

MOVa XID, TARGET 

»R NtWTRK 

DEC TARGET 

Hk NtWTRK 



JFJRST TIME BIT SET 

JNO GET NEXT TRACK 

JYES CLEAR FIRST TIME BITS 

;go to id 

JMOVe TO NEXT TRACK 



?;***ft* ************************************ ft ***«r4**AA«)Sf********** 

JlNCRtMENT THEN DECREMENT TRACKS 
I S B 3 



100200 001200 

P41356 
011356 
«lli66 
011364 
011556 



TSTtt OU 
BPU IS 

BIC »1M0200,UD 
DEC TRKCNTK 
ASL TRKCNTR 
MUV XIU,R0 
SUB XUD,R0 
sua TRKCNTR, R0 
»r,F SEU2 
BR StQl 



ICHECk first time BIT 
INOT FIRST TIME THROUGH 
ICLEAN FIRST TIME BITS 

PRESET TRACK COUNTER TO DOUBLE THE COUNT 

fGET DIFFERENCE BETwEtN ly AND OU 
nS TRACK COUNTER HALf DONE 
lYES GO DtCREMENT TRACKS 
INO CONTINUE INCREMENTING TRACKS 
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iwnCH REGISTER 





































n9«s««* 




















































011524 


042737 


100200 


001200 


SEQ4S 




011532 


123737 


011362 


001200 






011510 


001404 










B11542 


113737 


001200 


011360 






011550 


000404 










011552 


113737 


k)0l201 


011360 


IDNEXT! 




011560 


000400 






























n*^^i>** 




















































011562 


013705 


011360 




newtrk: 




011566 


006305 










011570 


006305 










011572 


062705 


01?b60 








011576 


062715 


000001 








011602 


005565 


000002 








011606 


000207 










































n**«*«(» 




















































011610 


105737 


001201 




SEass 




011614 


100011 










011616 


005237 


011356 








011622 


142737 


000200 


001201 






011630 


113737 


011366 


011360 




2000 


011636 


000751 








2001 


011640 


105737 


001200 




isi 


2002 


011644 


100007 








2003 


011646 


142737 


000200 


001200 




2004 


011654 


113737 


011364 


011360 




2005 


011662 


000737 








2006 


011664 


132737 


000001 


011356 


2$i 


2007 


011672 


001006 








2008 


011674 


005237 


011364 






2009 


011700 


113737 


011364 


011360 




2010 


011706 


000405 








2011 


011710 


003337 


011366 




3SI 


2012 


011714 


113737 


011366 


011360 




2013 


311722 


123727 


011356 


000001 


LA3TTRKS 


SiH 


011730 


0@1003 








2015 


011732 


113737 


0012ii 


011360 




2016 


^11740 


000710 






xreturni 



*******•*»«!***« 



<ir <r ft « « « Ilk « «r «t « ft « 



J60UNCE BETWtEN lU AND OD ONLY 



BIC »100200,OD 
CMPB PRtSTRK.OD 
BEO IDNEXT 
MOVa OD, TARGET 
BR NtwTRK 
MQVB ID, TARGET 
BR NtWTRK 



ICLEAR THE FIRST TIME BITS 

I'DIO IT JUST DO OD 

JYES 

|N0 GO TO OD TRACK 

;G0 DO ID TRACK 



A*********»«A****ft* 



*«t«ft***«!Sfft*«*******«[***** 



UNCREMENT THE "HEAD MOVED TO" COUNTERS AND RETURN 
;ThROUGH HERE FROM ALL TRACK SEQUENCES 



MOV TARGET, R5 

ASL Nb 

ASL H5 

ADO »HDMDVE,R5 

ADD #1, CR5J 

ADC 2CR53 

RTS PC 



IGET TRACK ADDRESS 

^MULTIPLY BY 4 TO DOUBLE PRECISION 

UNTERLEAVE COUNTER ADDRESSES 

?ADD ON ADDRESS OF MEAD MOVE COUNTER 

;INC COUNTER 

lAOD CARRY TO HIGH ORDER wORO 

JPETURN TO ACCESS NEXT TRACK 



!ift«tft«««f!in»«ilr!l!«««fft«iA<i«<lrA«Ai!i<t«r«»AA)»«««««A«tft 



********** 



{BOUNCE BETWEEN DECREASING ID AND INCREASING OD 

; 5 8 5 



T8TB ID 

8PL IS 

INC TRKCNTR 

Bica #200,10 

MOVB XID, TARGET 

BR NEWTRK 

TST6 00 

BPL 2S 

BICB #200, UD 

MOVB XOO, TARGET 

BR NEwTRK 

BITB »l, TRKCNTR 

BNg AS 

INC XOO 

MOVB XUO, TARGET 

BR LASTTRK 

DEC XIU 

MOve XID, TARGET 

CMP8 TRKCNTR, #1 

BNE XRtTURN 

MOVB OD, TARGET 

BR NEWTRK 



JTEST FIRST TIME BIT OF ID 

lAOJUST FOR ONE EXTRA MOVEMENT TO TRK 0fo 
ICLEAR FIRST TIME BIT OF ID 
IMOVE TO ID 

HEST FIRST TIME BIT OF OD 

JCLEAR FIRST TIME BIT OF 00 
IMOVE TO OD 

ITEST COUNTER FOR ODD OR EVEN 
lODD MOVE TO NEW ID 
lEVEN ADD 1 TO OD 

ISEE IF LAST TRACK IS BEING ACCESSED 
^SUBTRACT 1 FROM ID 



ITHIS IS LAST TRACK RETURN TO OD 



ill. 



OE!?XAEsPU G£T VALUt FO^ SOFTWARE SWITCH RfeGISTEH 



20iT 












asis 










n*s**A 


2019 












2080 












2021 












2Z^l 












2023 


0U7aa 


105737 


0fe5l200 




St;Q6l 


202a 


011746 


100007 








2025 


0U750 


042737 


100200 


001200 




2026 


0U756 


005337 


011356 






2027 


PU762 


006337 


011356 






2028 


011766 


123737 


011362 


0^1200 


ISI 


2029 


0U774 


001006 








2030 


011776 


113737 


011366 


011360 




2031 


012004 


005337 


011366 






2052 


? 120 10 


000664 








2033 


012012 


113737 


001200 


0U36i3 


DONEXTS 


2034 


012020 


000660 








2035 












2036 












2037 












2038 










;,•*«**« 


ZZi^ 












im% 












20*»i 












Z^>^1 












20«3 












20«a 


012022 


012737 


Hr^H20i^ 


0012C50 


Sty?! 


2015 


E12030 


004737 


012122 






20<»6 


012034 


012737 


I77fc00 


«1221i 




2017 


012012 


123737 


012211 


011360 


lOCQMPI 


20«e 


012050 


01(53401 








2019 


012052 


163737 


im366 


012211 




2050 


212060 


00077gj 








205i 


012062 


123737 


012214 


011361 


UDCOMP! 


2052 


91207a 


mzm^ 








2053 


012072 


063737 


011361 


f 12211 




205a 


012100 


Pd0770 








2055 


012102 


123737 


012211 


011362 


HKtSCHK 


2056 


k51?ll0 


001714 








2057 


312U2 


idl3737 


012211 


011360 




2058 


012120 


000620 








2059 












2060 


P12122 


fejl2700 


0v^0001 




HANGENl 


2061 


^12126 


063700 


012210 






2062 


«12132 


063700 


012212 






2063 


012136 


042700 


170000 






2064 


012112 


000241 








2065 


012144 


006100 








2066 


312146 


mb\m 








2067 


31215K3 


31003 7 


012210 






2068 


012154 


005000 








2069 


012156 


313700 


012212 






2070 


012162 


006000 








2071 


012164 


006£)id0 








2072 


012166 


063700 


012210 







f I ********* a* ****«***»* as «*«** 



iiiiifii-k'k-ii-kisit^ 



^■kH-k-i^'Uitii^'k'k 



iSTROet BETiNtEN OU ANU DECREASING ID 
I safe 



T3?e 00 
BPL IS 

8IC 8100200,00 
DEC TRKCNTR 
ASL TRKCNTW 
CHPi PKESTHKjOD 
BNE UDNEXT 
MOVa XID, TARGET 
DEC XIU 
BR NtWTHK 
MOVb OUfTAWGET 
BR NfcWTRK 



ICHECK FIRST TIME BIT 

INOT FIRST TIME 

fWAS FIRST TIME, CLEAR THE BITS 

PRESET COUNTER TO OOUtfLE THE NUMBER OF TRACKS 

;WA5 00 JUST ACCESSED 

INO GO TO OD 

JOECREASING 10 IS NEXT TRACK 



lOD IS NEXT TRACK 



A««ft««r*««( 



■tiififk'kitn-ti 



;RAN0UM SEQUtNUINti OF TRACKS 

JFOR PROPER USE OF RANOQH TRACK SEQUENCING, THE OD/IU LIMITS 

JSHOULO NOT WE SET FOR LESS THAN HALF ThE TRACKS, 

,' S s oj< 7 



JCLEAR THE FIRST TIME BITS 

IGET a random NUMtJER 

fCLEAH ALL BUT LOW 7 ttlTS 

?IS RANUM LARGER THAN ID ADDRESS 

|N0,RANUM IS LESS OR EQUAL TO ID 

>YES, SUBTRACT ID fRQM IT 

;SEE IF RANUM IS NOW UK 

;IS RANUM SMALLER THAN OU ADDRESS 

INO, RANUM IS GREATER OH EQUAL TO UO 

lYES.AnO Un TO RANUM 

JSEE IF RANUH IS NOw UK 

;IF RANUM EQUALS PRESENT TRACK 

IGET ANOTHER RANDOM NUMdER 

IRANUM OK PUT IT IN TARGET TRACK 



«IC 


«100200,OU 


JSR 


HCRANbEN 


HIC 


»1 f760!(!), RANUM 


CMP6 RANUM, XID 


PLE 


oncoMP 


SUB 


XIU, RANUM 


BR ] 


lUCOMP 


CMPO RANUM, XOU 


HGE 


PRtSCMK 


Aun 


XOU, RANUM 


BR UUCUMP 


CMPB RANUM, PRESTRK 


BtO 


5EU7 


HOV 


HANUM, TARGET 


HR NtwTRK 


MOV 


«1,R0 


ADD 


HANI ,Rli3 


ADO 


NAN2,R13 


BIC 


»l/0000,R0 


CLC 




ROL 


K0 


RUL 


H0 


MOV 


R0,RANi 


CLR 


Nk3 


MOV 


RAN2,R0 


RUR 


R0 


ROR 


R0 


AuO 


KANi,Hldl 
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2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
20B2 
2083 
2084 
2065 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
21B1 
2102 
2103 
2104 
2105 
2106 
2107 
2|08 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2|S3 
2124 
2125 
2126 
2J27 
2128 



5512172 042700 170W00 

012176 010037 012212 

£12202 310U37 012211 

212206 000207 

012210 000000 

012212 000000 

P12214 000000 



f!l2216 
312222 
012224 
^•12230 
L112236 
012214 
012252 
012256 
f^l2262 
012270 

312276 

012304 

012306 
012310 
012312 
012314 

012316 
012324 
312332 
012334 
012312 
012350 
012354 



0195737 
001005 
005237 
112737 
113737 
163737 
005237 
105037 
113737 
163737 

012737 

000207 



000003 

063737 
123737 

002010 
113737 
063737 

005237 

000207 



001202 

001202 
00l^5?32 
001203 
0012^2 
012306 
012307 
001202 
012311 

000001 



0U1202 
012312 
012312 



BIC »H0000,R0 

MOV N0,RANa 

MOV W@, RANUM 

RTS PC 

RANH y 

RANg! M 

RANUM} k3 

|;*«*******i!r***ftftft*ft*S*******ft******* 



001203 
012306 
012306 



012310 
012310 



012314 K)12310 
001203 012310 



012310 
012310 



************** 



J************* 



ISECTOR INITIALIZATION AND SELECTION 



INlTStCTORl 



SECCNTR! 

tsector: 
intueavi 

THREEl 



TST URST 
BNE 1$ 
INC URST 
MOVB #i2,LAST 
MOVB LAST, SECCNTR 
SUB URST, SECCNTR 
INC SECCNTR 
CLRtJ StCCNTR + 1 
MOVb FIRST, TSECTOR 
SUB THREE, TSECTOR 

MOV »l,INTLEAV 
RTS PC 



ADD THREE, TSECTOR 

CMPB LAST, TSECTOR 

BGE IS 

MOVB FIRST, TSECTOR 

ADD INTLEAV, TSECTOR 

INC INTLEAV 

RTS PC 



ITEST FI«8T AND LAST POR k) 
ISECTORS SPECIFIED USE THEM 
INONE SPECIFIED SET FIRST TO I 
ISET LAST TO MAXIMUM 
ISET UP SECTOR COUNTER 



/PUT FIRST SECTOR IN TARGET SECTOR 

laUb 3 FROM TSECTOR AS FIRST TIME THROUGH 

IIT GETS ADDED BACK ON. 

ISET INTERLEAVE OFFSET 



lADD 3 FOR INTERLEAVING 

INEW SECTOR IS WITHIN LIMITS 
IRESET TARGET SECTOR TO INTERLEAVE 
MOD ON INTERLEAVE OFFSET VALUE 
lUP DATE THE OFFSET VALUE 



,SBTTL TYPE ROUTINE 



****«l*******»****«*****A****A*********A««^AA«,***********ft***«t** 

ROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A BYTE, 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 
NOTEl! SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
N0TE2? 5FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
N0TE3! SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



CALL! 

I) USING A TRAP INSTRUCTION 

TYPE ,MESADN 
OR 

TYPE 

MESADR 



IIMESAOR IS FIRST ADDRESS OF AN &SCIZ STRING 



MAINDEC»U«DZRXA-E MACYll £7(7383 20»SEP«7fe l5!<Jb PACi6 «0 

DZRXAE,PU TYPE ROUTINE 



3139 
2131 








t* 






012356 


10S737 


012605 


STYPES 


TST8 


STPFLG 


2132 


012362 


100002 






BPL 


IS 


2133 


012364 


000000 






HALT 




2134 


012366 


000407 






BR 


3S 


2135 


012370 


010046 




ISI 


MOV 


H0,-ISP3 


2136 


012372 


017600 


000002 




HOV 


t»2(SP),R0 


2137 


012376 


112046 




2Si 


MOVB 


CR0J*,-CSPJ 


2138 


012400 


001005 






BNE 


4S 


2139 


012<!)02 


005726 






TST 


CSPJ* 


2l<»0 


012404 


012600 




605: 


MOV 


tSP)+,H0 


2l«l 


012406 


062716 


000002 


3Si 


ADD 


#2, ISPJ 


2142 


012412 


000002 






RTI 




2l«3 


012414 


122716 


000011 


4Sl 


CMPB 


»MT» ISP3 


2144 


012420 


001430 






8EQ 


8$ 


2145 


012422 


122716 


000200 




CMPB 


»CRLP» ISP) 


2146 


012426 


001006 






BNE 


5$ 


2147 


012430 


005726 






TST 


CSP) + 


2148 


012432 


104400 






TYPE 




2149 


012434 


012b07 






SCRLF 




2150 


ei2436 


105037 


012572 




CLRP 


SCHAHCNT 


2151 


012442 


000755 






BR 


2S 


2152 


012444 


004717 


01252b 


531 


JSR 


PC.STYPEC 


2153 


012450 


123726 


012604 


bS> 


CMPB 


SFILLCf CSPH 


2154 


012454 


001350 






BNE 


2S 


2155 


012456 


013746 


0126652 




MQV 


SNUtL,-(SP) 


2156 














2157 


012462 


105366 


000001 


7S8 


DEC8 


ICSPJ 


2158 


012466 


00277^3 






BLT 


6$ 


2159 


012470 


004737 


012526 




JSR 


PC,*TYPEC 


2160 


212474 


105337 


012572 




DEC8 


SCHAKCNT 


2161 
2162 
2163 


612500 


00077ia 






BR 


T$ 








.•HORIZONTAL TAB 


' PROCfcSSOR 


2164 
2lb5 


012502 


112716 


C0ia040 


8$J 


MQV8 


»• ,KS^) 


2166 


012506 


034737 


012526 


9$I 


JSR 


PCiTYPEC 


2167 


012512 


132737 


^100007 


012572 


flITtt 


07, S>CHARCNT 


2168 


012520 


001372 






BNE 


9$ 


2169 


012522 


00572b 






TST 


CSP)* 


2170 


012524 


000724 






BR 


2$ 


2171 


012526 


105777 


000044 


STYPECi 


! TSTb 


USTPS 


2172 


012532 


100375 






BPL 


STYPtC 


2173 


012534 


116677 


000002 


^00036 


MOVB 


2(SPJ,«'$TP0 


2lU 


312542 


12276b 


0001I515 


id^Q^'AT^i 


CMPB 


»CR,2CSPJ 


2175 


P12550 


001003 






8NE 


1* 


2176 


012552 


10503/ 


012572 




CLRB 


SCHftNCNT 


2177 


012556 


000406 






BR 


STYPtX 


2178 


E12560 


122766 


000012 


000002 U: 


CMPB 


ffLF,«iCSP) 


2179 


012566 


0014 02 






BEQ 


STYPkX 


2180 


012570 


105227 






INCB 


(PC)* 


2161 


012572 


000000 




SCH&HCNT! .WORD 





2182 
2183 
2164 


012574 


0002^7 




STYPEX 


! RTS 


PC 


312576 


177564 




STPS! 


.WORD 


I775b4 



nIS THERE A TERMINAL? 

flBR IF YES 

IIHALT HERE IF NO TERMINAL 

MLEAVE 

nSAVE R0 

IIGET ADDRESS OF ASCIZ STRING 

nPUSH CHARACTER TO BE TYPED ONTO STACK 

MBR IF IT ISN'T THE TERMINATOR 

niF TERMINATOR POP IT OFF THE STACK 

HRESTORE R0 

n ADJUST RETURN PC 

|?RETUHN 

HBRANCH IF <HT> 

HBRANCM IF NOT <CRLF> 

IJPOP <CR><LF> EQUIV 
HTYPt A CR AND LF 

IICLEAR CHARACTER COUNT 

IIGET NEXT CHARACTER 

IIGD TYPE THIS CHARACTER 

HIS IT TIMfc FOR FILLER CHARS. 7 

IflF NO GO GET NEXT CHAR, 

IIGET # OF FILLER CHARS, NEtDED 

HAND THE NULL CHAR, 

IIDOES A NULL NfcED TO BE TYPtU? 

JIBR IF NO— GO POP THE NULL OFF OF STACK 

IIGO TYPE A NULL 

IIUO NOT COUNT AS A COUNT 

I J LOOP 



IIREPLACfc TAB WITH SPACE 

llTYPt A SPACE 

IIBRANCH IF NOT AT 

IITAB STOP 

IIPOP SPACE OFF STACK 

IIGET NEXT CHARACTER 

IIWAIT UNTIL PRINTER IS READY 

JILOAO CHAR TU OE TYPED INTO DATA REG. 

;|1S CHARACTER A CARRIAGE RtTURN? 

;; BRANCH IF NQ 

IIYES--CLEAR CHARACTER COUNT 

IIEXIT 

HIS CHARACTFR A LINE FEED? 

IIBRANCH IF YES 

IICOUNT THE CHARACTER 

llCMARACTtR COUNT STORAGE 



IITTY PRlNTtR STATUS REt>, AUDRESS 
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2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2210 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

222? 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 



012600 
312602 
012603 
012604 
012605 
012606 
012607 
012610 



177566 

000 
002 
012 

000 

077 

015 

000012 



012612 
012616 
012624 
012630 
012634 
012636 
012644 
012652 
012660 
012662 
012664 
012666 
012672 
012674 
012700 
012704 
012710 
012714 
012716 
012720 
012722 
012724 
012726 



0l7b46 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 



STPBI 


.WORD 


17751 


iNULL! 


.BYTE 





SFILLS: 


.BYTE 


2 


SFILLC: 


.BYTE 


12 


stpflg: 


.BYTE 





suuES: 


.ASCII 


"?» 


SCRLF! 


.ASCII 


<15» 


SLFJ 


.ASCIZ 


<!?> 



IITTY PRINTER BUFFER REG. ADDRESS 
IICONTAINS NULL CHARACTER FOR FILLS 
IICQNTAINS ft OF FILLER CHARACTERS REQUIRED 
I {INSERT FILL CHARS, AFTER A "LINE FEED" 
||"TERMINal AVAILABLE" FLAG Ct>IT«07>B0aYES) 
IIQUESTION MARK 
IICARRAIGE RETURN 
IILINEFEED 
.SBTTL BINARY TO OCTAL CASCIU AND TYPE 

I !***«*********************************************************** 
MTHIS ROuTINt IS UStU TO CHANGE A 16-BIT BINARY NUMBER TO A b-UlGIT 

|*octal casciu number and type it, 

|*$typos— -enter hert to sfctup suppress zeros and number of digits to type 

i*call: 

|« mov num,-tspj iinumber to be typed 

I* TYPOS IICALL FOR TYPEOUT 

I* .BYTE N IINal TO 6 FOR NUMBER OF DIGITS TO TYPE 

I* .BYTE M l|Mal OR 

jn ||l«TYPE LEADING ZEROS 

;a ||0aSUPPRESS LEADING ZEROS 

M 

MSTYPON- — ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

|*STYPOS OR STYpUC 

MCALLI 

|tt HOV NUM,-CSP) IINUMBER TO BE TYPED 

I* TYPON IICALL FOR TYPEOUT 

I* 

MSTYPOC— ENTER HERE FOR TYPEOUT OF A lb BIT NUMBER 

l*CALLJ 

|« HOV NUM,-CSP3 IINUMBER TO BE TYPED 

|« TYPOC IICALL FOR TYPEOUT 



000001 

e 1303.7 
000002 



STYPOSI 



013035 STYPOCI 

013037 

013034 STYPOn: 



013037 



013036 
013035 
000012 



006105 
006105 
006105 



ISI 
2S1 



MOV 

MOVB 

MOVB 

ADO 

BR 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

MOV 

MOVB 

NEG 

ADO 

MOVB 

MOVB 

MOV 

CLR 

ROL 

8R 

ROL 

ROL 

ROL 



P(SPJ,-CSP) 

1(SPJ,S0FILL 

(SP)*,S0M0DE+1 

i»2,CSPJ 

STYPON 

#1,»WFILL 

#6,*0MUDE*l 

«5,*0CNT 

R3,-tSP) 

R4,->C8P3 

R5,-ISP3 

S0M0UEtl,R4 

R4 

«6,R4 

R4,SUM0DE 

S0FILL#R4 

12(SP3,R5 

R3 

R5 

3S 

R5 

R5 

R5 



IIPICKUP THE MODE 
IILOAO ZERO FILL SWITCH 
IINUMBER OF DIGITS TO TYPE 
I I ADJUST RETURN ADDRESS 

IISET THE ZERO FILL SWITCH 

IISET FOR SIX(6) DIGITS 

IISET THE ITERATION COUNT 

IISAVE R3 

IISAVE R4 

IISAVE R5 

IIGET THE NUMBER OF DIGITS TO TYPE 

IISUBTRACT IT FOR MAX, ALLOWED 
IISAVE IT FOR USE 
IIGET THE ZERO FILL SWITCH 
IIPICKUP THE INPUT NUMBER 
IICLEAR THE OUTPUT WORD 
llROTATt MSB INTO "C" 
IIGO DO MSB 
IIFORM THIS DIGIT 



MAlNOEC''t|-OZR»A-£ HACYU 27(733) 2^«"&t~P-76 I5!«fe PAU& 42 
OZRXAE.Pli BINARY TO OCTAL (ASCIU AND TfPE 



22«l 


01273^ 


010505 




2212 


012732 


006103 




22<J3 


012734 


105337 


0ii03b 


22«a 


012740 


10001b 




22«5 


012742 


042703 


177770 


2a<Jb 


012746 


001002 




22«7 


012750 


005704 




22<i8 


012752 


001403 




2209 


?I12754 


005204 




2250 


312756 


052703 


000t<60 


22'3l 


012762 


052703 


0W0040 


22S2 


012766 


11033/ 


313032 


2253 


012772 


104400 


013032 


2254 


ei2776 


105337 


013*534 


2255 


013002 


003347 




2256 


^313004 


0024?2 




2257 


013008 


005204 




2258 


013010 


[^00744 




2259 


013012 


312605 




2260 


013014 


012604 




2261 


013016 


012603 




2262 


013020 


016666 


O00i«02 0W00t^a 


2263 


CI 3026 


01261b 




2264 


013030 


030002 




22b5 


013032 


00k3 




2266 


013033 


000 




2267 


G13034 


000 




2268 


013035 


000 




2269 


01303fc 


300000 




2270 








2271 








2272 








2273 








2274 








2275 








2276 








2277 








2276 








2279 








22B0 








2281 








2282 








2283 








2284 








2285 








2286 








2287 


013040 






2288 


013040 


0l00ab 




2289 


013042 


P10146 




^^'i^ 


^13044 


01024b 




2291 


i:i3046 


01034b 




2292 


013050 


01044b 




2293 


?13i352 


010540 




2294 


013054 


016646 


■m^\dii 


2295 


013060 


016b4b 


000022 


2296 


013064 


016b4b 


000022 



SOCNTI 
S0PILLS 

.SHTTL 



MOV 

RDL 

DtCB 

8PL 

BIC 

BNE 

TST 

B£Q 

INC 

BIS 

BIS 

MOVB 

TYPE 

0EC8 

6GT 

BUT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

KTI 

.BYTfe 

.BYTt 

,BYTt 

.BYTE 

.i^ORO 

SAVE AN 



H5,H3 

H3 

SOMOUt 

7$ 

«177 ?70,R3 

4S 

R4 

5i 

wa 

»'0,H3 

»' ,Wi 

R3,eiii 

,8$ 

SOC'NT 

2S 

b% 

W4 

2$ 

(SPJ+,K5 

tSPJ+,H« 

ISP3*,K3 

2lSP3,«tSP; 

(SP)*, ISPJ 



IIGET USB OF THIS DIGIT 

IITYPE THIS DIGIT? 

HBR IF NO 

nGET RIO OF JUNK 

IITEST FOR 

nSUPPRESS THIS 0? 

M8R IF YES 

nOON'T SUPPRESS ANYMORE 0'5 

IJMAKE THIS DIGIT ASCII 

MMAKt ASCII IF NOT ALREADY 

nSAVt FUR TYPING 

HGO TYPE THIS DIGIT 

nCOUNT BY 1 

HBR IF MORE TU OU 

IIBR IF DONE 

IJINSURE LAST DIGIT ISN'T A BLANK 

HGO DO THE LAST DIGIT 

nRESTORE R5 

HRESTORE R4 

; {RESTORE R3 

nSET THE STACK FOR RETURNING 



nRETURN 

{.•STORAGE FOR ASCII DIGIT 
JiTERMINAtOR FOR TYPE ROUTINE 
IIOCTAL DIGIT COUNTER 
nZERO FILL SWITCH 
IfNUMBER OF DIGITS TU TYPE 
U kE6T0KE Kl(3-H5 ROUTINES 



*********** 



I ;********«***»** **>lr***** 

?*5AVE R0-R5 

;*CALL! 

M SAVREG 

?*UPON RETURN FkUM *6AVREG THE STACK wiLL LOOK LIKE: 



************* 



?*TOP— ( + lb) 




f* *2— C + 16) 




M +a— R5 




I* ffc-.-Ra 




1* +8 — R3 




;ft*i0 R2 




;**12 — Ri 




1 * + ia---R((3 




SSAVneg: 




MOV 


Hm3,-ISP) 


MUV 


R1,-ISP) 


MOV 


H2,-15PJ 


NOV 


RJ.'-CSPJ 


MOV 


R«,-CSP) 


MOV 


R5,-ISP) 


MOV 


22(SiP3,-(5P3 


NOV 


e!2Cl>P),-tSP3 


MOV 


2^fSH),-CSH3 



nPUSH Rf' ON STACK 

i;PUSM Rl ON STACK- 

IJPUSH R2 ON STACK 

fjPUSH R3 ON STACK 

JJPUSH Ra ON STACK 

nPUSH R5 ON STACK 

;;SAVE PS OF MAIN FLOk) 

nSAVt PC OF MAIN FLOW 

JIbAVt PS OF CALL 



MAlNDEC-1 l»OZRJ<A-t HACYll 27(732) a0«SEP-76 
OZRXAE.Pll SAVE AND RESTQHb R0-R5 KOUTlNtS 



lisafo PAUt 43 



2297 


013070 


01664b 


0>as4((322 


2298 


013074 


zdm^i 




2299 








2300 








2301 








2302 








2303 


013076 






2304 


01307b 


012fa6b 


0W0022 


2305 


013102 


01266b 


«W0022 


2306 


013106 


012666 


^500022 


2307 


013112 


012666 


ilH!d022 


2308 


013116 


0126vl5 




2309 


313120 


012604 




2310 


013122 


012b03 




2311 


013124 


012602 




2312 


013126 


012601 




2313 


013130 


012600 




2314 


013132 


000002 




2315 








2316 








2317 








2318 


^13134 


177560 




2319 


013136 


177562 




2320 








2321 








2322 








2323 








2324 








2325 








2326 








2327 


013140 


022737 


0W0176 


2328 


013146 


001074 




2329 


013150 


105777 


I777b0 


2330 


013154 


100071 




2331 


013156 


117746 


177754 


2332 


013162 


042716 


177600 


2333 


013166 


022726 


000007 


2334 


013172 


001062 




2335 


013174 


123727 


013714 


2336 


013202 


001456 




2337 








2338 


013204 


104400 


013665 


2339 


•313210 


104400 


013672 


2340 


013214 


013746 


000176 


23<ll 


013220 


104401 




23<I2 


013222 


104400 


013703 


2343 


013226 


005046 




2344 


013230 


005046 




2345 


013232 


105777 


177676 


23«6 


013236 


100375 




2347 








23«8 


013240 


117746 


177672 


23«9 


013244 


042716 


177600 


2350 








2351 








2332 









MUV 
RT! 



22(aP),^(SP) 



;*HESTORE Pfc5-R5 



MUV 
MOV 
MOV 
NOV 
MOV 
MOV 
MOV 
MOV 
HOV 
MOV 
RTI 



(SP)+,22CSP) 

({sPJ+,22(5P) 

(SP3+,22(SPJ 

(SPJ+,22(SP) 

(SPJ*,H5 

(SPJ+,Ktt 

(5PJ+,H3 

(SP)+,H2 

(SP)+,W1 

(SPJ+,K0 



nSAVt PC OF CALL 



IIRESTORE PC OF CALL 
nRESTORE PS OF CALL 
MRESTORE PC OF MAIN FLOW 
IIRESTORE PS OF MAIN FLOh 
IIPOP STACK INTO R5 
IIPOP STACK INTO R4 
IIPOP STACK Into K3 
IIPOP STACK INTO R2 
IIPOP STACK INTO Rl 
IIPOP STACK INTO R0 



.SBTTL TTY INPUT ROUTINE 

1 1 ***************************** 
JiTKS: .WORD I775b0 
iTKU: .t^ORO 177562 
,ENABL LSB 



********************* 
IITTY KBO STATUS 
IITTY KBO BUFFER 



t***********ft 



1 1 *************************************************************** 

MSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

I*R0UTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

IaSERVICE THE TEST FUR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

|*WHEN OPERATING IN TTY'FLAG MODE, 

HIS THE S0FT-8WR SELECTED? 

IIBRANCH IF NO 

IICHAR THERE? 

IIIF NO, DON'T WAIT AROUND 

IISAVE THE CHAR 

IISTRIP-OFF THE ASCII 

HIS IT A CONTROL G? 

UNO, RETURN TO USER 

1 1 ARE WE RUNNING IN AUTO-MODE? 

IIBRANCH IF YES 

IIECHO THE CONTROL-G ("GJ 

IITYPE CURRENT CONTENTS 

IISAVE SWREG FOR TVPEOUT 

IIGO TYPE— OCTAL ASCIICALL DIGITS) 

IIPROMPT FOR NEW SWR 

IICLEAR COUNTER 

IITHE NEW SWR 

IICHAR THERE? 

IIIF NOT TRY AGAIN 

IIPICK UP CHAR 
IIMAKE IT 7-BIT ASCII 



SCKSWRI 


CMP 


)»SWREG,SWR 




BNE 


15S 




TST8 


*$TKS 




BPL 


15S 




MOVB 


«»STKb,«(SP) 




BIC 


»"C177, (SP) 




CMP 


«7,(SP)+ 




BNE 


15S 




CMP8 


SAUTUB,#1 




BEQ 


15S 




TYPE 


.SCNTLG 


SGTSWRI 


TYPE 


,SMSWR 




HOV 


SWREG, -CSP) 




TYPOC 






TYPE 


,SMNfcW 


19S] 


CLR 


-CSP) 




CLR 


-(SP) 


7S» 


TSTB 


#STK8 




BPL 


7S 




MOVB 


PSTKB,*CSP) 




BIC 


»*Ci77,(SP) 



OZRX^EsPil TTY XNFUT HUUTINE 



20«8EP^?6 |SS«6 Pkm «« 



S3S3 

asss 

3356 
a357 
23S8 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
236? 
2368 
2369 
23?0 
23Ti 
23T2 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2406 



013250 
0132S4 
013256 
013262 
013266 



013270 
013274 
013276 
013302 
013304 
013312 
013316 
013322 
013330 
013332 
013340 
013342 
013346 
013352 
013354 
013360 
013362 
013366 
013372 
013374 
013376 
013400 
013402 
013406 
013412 
013414 
013420 



213422 
313424 
?13432 
313436 
213440 
313446 
313454 
013462 
313464 
013470 
313472 



021627 
001003 
104400 
062706 
0007S7 



021627 

001022 
005766 
001403 
016677 
062706 
104400 



000015 



000002 165702 



004737 
021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
300707 
104400 
000720 



011646 
016666 
105777 
11^0375 
U7766 
042766 
026627 
001013 
105777 
100375 
117746 



123727 013715 000001 

001003 

012777 000100 177574 



012526 

000060 



000002 
177776 



000004 
177476 

|77<472 
I7760tf 
000004 



000004 
000004 
000023 



llil 
14Si 



15S! 

16S: 



CMP 

BNt 

TYPE 

ADD 

BR 



CMP 
BNE 
T6T 

eeo 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 

JSR 

CMP 

BLT 

CMP 

BGT 

blC 

TST 

BtQ 

ASL 

ASU 

ASl. 

INC 

BIS 

BH 

TYPE 

BR 

LSB 



CSPJ,#^5 

10S 

fSCNTtU 
#6,SP 
I9S 



tSPJ,«15 
IbS 

«{SPJ 

US 

gtSP) ,i>SWK 

86, SP 

»SC«LP 

SINTAG,#I 

15S 

S100,#STKS 

PC,4TYP£C 

CSP) f#60 

luS 

CSPJ »#67 

IBS 

S60» ISP)* 

2CSPJ 

17S 

CSPJ 

ISP) 

CSPJ 

atspj 

-2(SP3, (SPJ 

7S 

,SQUtS 

20S 



1X3 IT A CQNTROL-U? 

;branch if not 

neS? ECHO CONTRQL«U C"U3 
HGNORE PREVIOUS INPUT 
ILET'S TRY IT AGAIN 



IIS IT A «CR»'? 

IBRANCH IF NO 

;YES, is IT THE fIRST CHAR? 

IBRANCH IF YES 

ISAVE NEW 5WR 

ICLEAK UP STACK 

lECHO <CRs. AND <IF> 

|HE"ENABl.E TTY KBO 

IBRANCH IF NOT 

IRE'-ENABLE TTY K«D 

IRETURN 

lECMO CHAR 

ICHAH < 0? 

IBRANCH IF YES 

ICHAR > 7? 

iBKANCh IF YES 

ISTRIP-OFF ASCII 

IIS THIS THE FIRST CHAH 

IBRANCH IF YtS 

|N0, SHIFT PRESENT 

I CHA» OVER TO MAKE 

I ROOM FOR NEW ONE, 

IKEEP COUNT OF CHAR 

ISET IN NEH CHAR 

IGET THE NEXT ONE 

ITYPE ?<CR>'<LF> 

iSIHULATfc CONTROL-U 



INTERRUPTb? 
INTERRUPTS 



MTHIS ROUTINE 

l*CALL! 

I* RDCHR 

I* KETUHN 



ilLl INPUT A SINGUE CHARACTER FROM THE TTY 

niNPUT A SINGLE CHAWACTER FROM ThE TTY 
<ERE IICMAKACTER IS ON THE STACK 

IIWITH PARITY BIT STRIPPED OFF 



MOV 

MOV 

TSTB 

BPL 

MOVB 

eic 

CMP 

6NE 

TSTB 

BPL 

MOVB 



CSPJ i-lSPJ 

a(SP),2CSPJ 

#STKS 

gSTK»,4CSPJ 

i!*C««177»,4CSP3 

a(SPj,S23 

Sh 

PiTKS 

24 

#STKB,''CSPJ 



IIPUSH UOWN THE PC 

JISAVE THE PS 

IIWAIT FOR 

IIA CHARACTER 

IIREAD THE TTY 

IIG&T RIU OF JUNK IF AN 

HIS IT A CONTROL-S? 

IIBRANCH IF NO 

IIWAIT FOR A CHARACTER 

JIUOOP UNTIL ITS THERE 

IIGET CHARACTER 



MAlNOEC-ll«OZRXA-E MaCYU 27C732) 

DZRXAE.Pil TTY INPUT ROUTINE 



20«SEP»76 I5ia6 PAbE aS 



2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
243T 
2438 
2439 
2440 
24«l 
2442 
24«3 
24^14 
24<»5 
2446 
24«T 
2443 
24<}9 
2450 
2451 
24Sa 
2453 
2454 
2435 
S456 
24S7 
2458 
24S9 
2463 
2461 
2462 
2463 
2464 



013476 
013502 
013506 
013510 
013512 
013520 
013522 
013530 
013532 
013540 



013542 
013544 
013550 
013554 
0135S6 
013560 
013562 
013566 
013570 
013574 
013576 
013602 
013606 
013612 
013614 
013620 
013624 
013626 
013630 
013636 
013644 
013646 
013647 
013650 
013660 
013665 
013672 
013T00 
013703 
013710 
013714 
013713 



042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



010346 
012703 
022703 
101405 
104406 
112613 
122713 
001003 
104400 
000763 
111337 
104400 
122723 
001356 
105063 
104400 
012603 
011646 
016666 
012766 
000002 



000010 
052536 
136 
003015 
020075 



177600 

000021 



04 

e'0000« 
000040 



0S3650 



000140 
000175 
00000a 



013650 
013660 



000177 



013646 
013646 
000015 

177777 

012610 



000002 
000004 



005015 000 
006S07 000012 
053523 020122 



036440 000040 



ail 

I |ft*ft*«r 

MTHIS 

MCALL! 

I* 

M 

M 

SRULINI 
ISI 

2SI 



10S! 

4S1 

3SI 



eic 

CMP 

8NE 

8R 

CMP 

BLT 

CMP 

BGT 

BIC 

RTI 

ROUTINE WIt,t INPUT 

ROLIN 
RETURN HERE 



»"C177, CSPJ 
CSPJ*,»21 

i$ 

IS 

4CSPJ,»ia0 

«$ 

«CSPJ,»175 

»a0,atbP3 



IIMAKE it 7"BIT ASCII 

nIS IT A CDN1R0L«Q? 

IIIF NOT DISCARD IT 

IIYES, RESUME 

HIS IT UPPER CASE? 

IIBRANCH IF YES 

I.IIS IT A SPECIAL CHAR? 

IIBRANCH IF YES 

IIMAKE IT UPPER CASE 

IIGO BACK TO USER 

STRING FROM THE TTY 



IINPUT A STRING FROM THE TTY 

IADDRES5 OF FIRST CHARACTER WILL BE ON THE STACK 

ITERMINATOR ^ILL BE A BYTE OF ALL 0'S 



9SI 

STTYINJ 
SCNTLUI 
SCNTLGI 
SMSWR! 



MOV 

MOV 

CMP 

BLOS 

RDCHR 

MOVB 

CMP8 

BNE 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLR8 

TYPE 

MOV 

MOV 

MOV 

MOV 

RTI 

sBYTE 

.BYTE 

,BLKB 

,ASCH 

,A3CIZ 

«A3CIZ 



RS.-ISP) 

#$TTYIN,R3 

»STTYIN+8,,R3 

as 

CSPJ*, IR3J 

»177,CR3J 

S$ 

,$QUES 

1» 

CR3J,9S 

,9$ 

»1S, CR3J+ 

i& 

«1CR3J 

(SP)*,K3 
(5PJ,-tSP) 
a(SPJ,2CSP3 
«STTYIN,4C5PJ 



8, 

/**U/<ias><l2> 
/•'G/«15»<12> 
«15s»<l2>/8WR 



ISAVE R3 

IGET ADDRESS 

IBUFFER FULL? 

IBR IF YES 

IGO READ ONE CHARACTER FROM THE TTY 

IGET CHARACTER 

IIS IT A RU80UT 

ISKIP IF NUT 

ITYPE A '?' 

ICLEAR THE BUFFER AND LOOP 

lECHO THE CHARACTER 

ICHECK FOR RETURN 

ILOOP IF NOT RETURN 

ICLEAR RETURN (THE 15) 

ITYPE A LINE FEED 

IRESTORE R3 

lADJUST THE STACK AND PUT ADDRESS OF THE 

I FIRST ASCII CHARACTER ON IT 

IRETURN 

I8T0RAGE FOR ASCII CHAR, TO TYPE 

ITERMINATOR 

IRESERVE 8 BYTES FOR TTY INPUT 

ICONTROL "U" 

ICONTKOL "G" 



047040 053505 SMNEWI ,ASCIZ / NEW s / 



SAUTOBS «BYTE 
SINTAGI ,BYTE 
aSBTTL TRAP OfeCOOEH 



IIAUTO MODE FLAG 

1 1 INTERRUPT MODE FLAG 



l*THia ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 

MANO USE IT TO INOiX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

isOF THE DESIRED ROUTINE^ THEN USING THE ADDRESS OBTAINED IT WILL 
laSO TO THAT ROUTINE^ 



MAlNU£C-U«DZRs(A-£ MACYU ^7(7323 
DERX^EsPll TRAP OeCOOtS 



»SeP»T& i5!«fe PAUt «fe 



a«b5 

aa6T 
aab8 
sab"? 

a47| 

2^72 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
24a2 
2463 
2484 
2485 
2486 
2487 
2488 
2469 
2490 
249J 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
25B0 
2501 
2502 
2503 
2504 
2505 
2506 
25^7 
2508 
2509 
2510 
25U 
2512 
2513 
2514 
2515 
2516 
2517 
2516 
2519 
2520 



313716 

013720 

eri724 

013726 

■3137 30 
013732 
0I3T36 



kil3740 
013740 
913742 
013744 
013746 



0l0bS4& 

016600 B00002 

005740 

1U000 

006300 

016000 013740 

000200 



'^14036 
014044 
014050 
014054 
014060 
J14062 
314066 



012356 
012636 
012612 
012652 



013750 013210 



013752 
013754 
013756 
S13760 
013762 



13764 
13772 

14000 
14002 
14004 
14006 
14010 
14012 
14014 
14020 
14024 
14032 
14034 



013140 
013422 
013542 

013040 
013076 



012737 
012737 

010046 
010146 
010246 
010346 
010446 
010546 
017746 
313637 
312737 
00000£fl 
01^0776 



012737 
013706 

005037 
005237 
001375 
012677 

0l26?i5 



STRAPS 


HOV 


W0,"ISF5 




MOV 


21SPJ,H0 




TST 


-(RtfJ 




Move 


Crt0J ,Rld 




ASU 


H0 




MOV 


STRP4OtR03 




RTS 


R0 



llSAVfc R0 

|>G£T TKAp ADDRtSS 

nSACKUP 8Y 2 

HGET RIGHT BYTE OF TRAP 

JIPOSITION FOR INDEXING 

yflNDEX TO TABLE 

ffGO TU ROUTINE 



.SBTTU TRAP TAau& 



ISTMIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
MBY THE "TRAP" INSTRUCTION, 



STYPE 
STYPQC 
STYPOb 
STYPOn 



nCftLLBTYPt 
IICALL8TYPUC 
jjCftLLsTYPOS 
JICALLSTYPUN 



TRAP4-0(i04400) 
TRAP-<'lli0a401) 
THAP+aCia44023 
TRAP-8-3C104403) 



TTY TYPEDUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (A8 PER LAST CALL) 



SGTSk^R nCALL»GTSWR 

SCKSWH nCALL»CKSwn 

SkDCHR MCaLLsRDCHR 

SRDLIN UCALLSROLIN 

SSAVREG nCALLBSAVREG 

SRESREG IICALL8RESREG 



•SBTTL PUWER UOWn ANU yP ROUTINES 



TRAP+4C1044W43 GET SOFT-SWR SETTING 

TRAP4-5C104405) TEST FOR CHANGE IN SOFT-SwR 

TRAP+6li0440fe) TTY TYPEIN CHARACTER ROUTINE 

TRAP+7C1»4407) TTY TYPEiN STRING ROUTINE 

TRAP+10tl044l0) SAVE R0-R5 ROUTINE 

TKAP+ll (1044113 RfcSTORE Ra-R5 ROUTINE 



0l4l3fe3 
000340 



165174 
014134 
014036 



P^iaiSi^ 
014134 

014134 
014134 

163126 



JPUk^ER DOWN ROUTINE 
000024 SPWRONI MOV 
000026 MOV 

MOV 

MOV 

MOV 

MOV 

HOV 

MOV 

HOV 

MOV 
000024 MOV 

HALT 

BR 



*******«(#•**« ft a* 



***ftS!t*«ft******** 



»SILLUP,#i?FWRVEC nSET FOR PAST UP 
»34W,#spWKVEC+2 j;PR10!7 



Rl, 

R2i 
R3, 
H4, 



■tSH) 
•tSP) 
•(8P3 
•(SP) 
■(SP) 



R5,-ISR) 

^SWH,-(SP3 

SPfiSAVRb 



IIPUSH R0 ON STACK 
nPUSM Rl ON STACK 
>?PUSH R2 ON STACK 
JJPUSH R3 ON STACK 
nPUSH Ra ON STACK 
nPUSH R's ON STACK 
?fPUSH #SWR ON STACK 
MSAVE SP 



»SPwHUP,#«Pi^RVEC nSET UP VECTOR 



j;man& up 



A *<r*fti* ******* 



******** 



IPOwER UP ROUriNt 

SPWRUPI MQV sSblLLURf^atPwRVEC HSET FOR FAST DOWN 

MOV SSAVR6,SP HGET SP 

CLR SSAVN6 MWAIT LOOP FOR THE TTY 

lit INC SSAVK6 IJWAIT FOR THE INC 

BNE l* nOF WORD 

MOV ISPJ*,#SWR ;fPUP STACK INTU »Sw» 

MOV {SPJ*,R5 nPOP STACK INTO W5 



****)»«***** 



MAlNUEC«ll«DZRXA-E MACYU 27(732) 20«SEP«76 1SS46 P4UE 4/ 
OZR^AEgPU POWER DOWN ANQ UP ROUTINES 



w 



2521 


014070 


012604 




2522 


k314072 


012603 




2523 


014074 


012602 




2524 


0l4a76 


012601 




2525 


014100 


012600 




2526 


014102 


012737 


013764 000^24 


2527 


014110 


012737 


000340 01^0^26 


2528 


?14116 


104400 




2529 


£14120 


014136 




2530 


C14122 


012716 




2531 


014124 


002700 




2532 


014126 


000002 




2533 


014130 


000000 




2534 


014132 


000776 




2535 


014134 


000000 




2536 


014136 


005015 


047520 042527 


2537 


014144 


000122 




2538 








2539 








2540 








2541 








2542 








2543 








2544 








2545 








2546 








2547 








2548 








2549 








2550 


014146 


016637 


000002 014176 


25SI 


014154 


012746 


014176 


2532 


014160 


004737 


014202 


2553 


014164 


062716 


000005 


2554 


014170 


012666 


000002 


2555 


014174 


000207 




25S6 


014176 


000000 


000000 


2557 








2558 








2559 








2560 








2561 








2562 








2563 








2564 








2565 








2566 








2567 








2568 








2569 








2570 


014202 


J04410 




2571 


014204 


016602 


000002 


2572 


014210 


012700 


014362 


2573 


014214 


010066 


000002 


2574 


014220 


012201 




2575 


314222 


012202 




2576 


014224 


012737 


000012 014300 



MOV 

MOV 

MOV 

MUV 

MOV 

MOV 

MOV 

TYPE 

,WORD 

MOV 

«WORD 

RTI 

HALT 

BR 



(SPJ+,R4 
(SP3*,N3 
(SP3'^,R2 
(SP3+,R1 
CSPJ+,H0 



nPOP STACK Into r4 

UPOP STACK into H3 

IIPQP STACK INTO R2 

IJPOP STACK INTO Rl 

nPOP STACK INTO R0 



sSPi«WDN,#»PWRVEC nSET UP THE POWER DOWN VECTOR 
s34iS,#»PWRVEC + 2 |;PRIU17 

fREPORT THE PUInER FAILURE 
*POwtR nPO'^ER FAIL MESSAGE POINTER 

CPCJ+,CSP3 i;restart at restart 

RESTART |;RESTART ADDRESS 



nTHE POWER UP SEQUENCE WAS STARTED 
n BEFORE THE POWER DOWN wAS COMPLETE 
IIPUT THE SP HERE 



$SAVR6! 

SPOWER! .ASCIZ ■<15><12>"P0WER" 

.EVEN 
.SBTTL SINGLE LfcNGTM BINARY TO DECIMAL ASCIZ ROUTINE 

I*THIS ROUTINE WILL CONVERT A 16-8IT UNSIGNED BINARY NUMBER TO AN 

MUNSIGNEO DECIMAL ASCIZ NUMBER, 

|*CALL 

l«r MOV NUMrifcR,«(3P3 IJPUT BINARY NUMBER ON THE STACK 

M JSR PC,«»»S8i2D nCALL 

M RETURN HADDRESS OF TH£ 1ST ASCIZ CHAR, IS ON THE STACK 

nSAVE BINARY NUMBER 

IISET POINTER 

nCALL DOUBLE LENGTH CONVERT 

nONLY ALLOW FIVE CHARACTERS 

nPICKUP POINTER 

MRETUHN 

ISS eWORO 0,0 

.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

MTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
l*DECIMAL (ASCII) NUMBER, THE SIGN OF THE BINARY NUMBER MUST BE 
l*POSITiVE, 
l*CALL 

I* MOV #PNrH,«(SP) MPOINTER TO LOW WORD OF BINARY NUMBER 
I* JSR PC,S#S0a20 

M RETURN IITHE FIRST ADDRESS OF ASCIZ 

MIS ON THE STACK 



MUV 


a(SP3,is 


MOV 


»isi-tap) 


JSR 


PC,«»»SUB2D 


ADO 


«IS,ISP) 


MOV 


(SP)*,2(SPJ 


RTS 


PC 



SAVREG 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 



2CSP),R2 

#SOECVL#R0 

R0,2CSP) 

CR2J*»Hl 

(RaJ*,H2 

#10.»4S 



IISAVE REGISTERS 

MPICKUP THE DATA POINTER 

HGET ADDRESS OF "SOECVL" STRING 

MPUT ADDRESS OF ASCIZ STRING ON STACK 

IIPICKUP THE BINARY NUMBER 

fiSET UP TO DO 10 CONVERSIONS 



DZRXAEgPU OUUBLi LENGTH BlNAf?y TU OECIMftU ASCII CQNVEST HOUTINE 



257? 


014232 


012704 014312 


3578 


014236 


312705 014314 


2579 


014242 


005003 


2580 


014244 


161401 


2561 


014246 


005602 


2382 


014250 


161502 


2583 


014252 


002402 


2584 


014254 


005203 


2585 


014256 


000772 


2586 


014260 


062401 


2587 


014262 


005502 


2588 


014264 


062402 


2589 


014266 


022525 


2590 


014270 


052703 0eilfl06M 


2591 


014274 


110320 


2592 


014276 


005327 


2593 


014300 


000000 


2594 


214302 


001357 


2595 


014304 


105020 


2596 


014306 


104411 


2597 


014310 


000207 


2598 


014312 


145000 


2599 


014314 


035632 


2600 


014316 


160400 


2601 


014320 


002765 


2602 


214322 


113200 


2603 


314324 


000230 


2604 


014326 


041100 


2605 


014330 


000017 


2606 


•^14332 


103240 


2607 


314334 


000001 


2608 


014336 


023420 


2609 


014340 


000000 


2610 


014342 


001750 


26U 


014344 


0000(^0 


2612 


014346 


000144 


2613 


014350 


000000 


2614 


014352 


000012 


2615 


014354 


000000 


2616 


iil4356 


000001 


2617 


014360 


000000 


2618 


014362 


000014 


2619 






2620 






2621 






2622 






2623 






2624 






2625 






2626 






2627 


B14376 


010046 


2628 


014400 


016600 00k)004 


2629 


E14404 


010037 014«36 


2630 


014410 


105710 


2631 


314412 


001406 


2632 


314414 


I227ia 00id0b0 





MOV 


»STNPWH,R4 


JMODRESS OF TEN POWER 




MOV 


«STNPWH+2»R5 




1st 


CUR 


RS 


IICLEAR PARTIAL 


2SI 


SUB 


IR4J,HI 


nSUBTRACT TEN POWER 




sec 


H2 






SUB 


CR5J»R2 






BUT 


34 


MBP IF TEN POWER TO LARGE 




INC 


K3 


IIAUD I TO PARTIAL 




e« 


2S 


MLOOP 


3Si 


Aon 


tR43*,Hl 


MRE3T0RE SUBTRACTED VALUE 




AQC 


W2 






ADO 


tH4)+,H2 






CMP 


tR5)+,lR5J+ 


HMOVE TO NEXT TEN POWER 




BIS 


»'0,R3 


IICHANGE PARTIAL TO ASCII 




M0V8 


R3,tH0J + 


;;SAVt IT 




DEC 


IPCJ + 


?|00Nt7 


4S! 


.MORO 


w 






0NE 


14 


;jBR IK NO 




CLR8 


CR03 + 


IITERMINATDH 




RESREB 




HRESTORE REGISTERS 




RT8 


PC 


;|RETURN 


STNPWHI 


145W00 
35632 




nl.0E09 




lb040t(;« 




||1,0E08 




2765 








U3200 




nl,0E07 




230 








04110W 




i;i,0E06 




17 








103240 




nl.0E05 




1 
23420 



1750 



144 



12 




ni.0E04 






;n.0E03 






;;i.0E02 






ni.0E0i 






I 




;n,0t00 


SUtCVL! 




1 .euKB 


12. 


URtSERVE STORAGE FOR AbCIZ STRING 


;;******,»******************* 





JTYPE NUMERICAL ASCIZ STHING»RIGHT JUSTIFIED 
^REPLACING LfcAOING ZEROS WITH SPACES, 

fFlRSI AQORESS OF ASCIZ STRING MUST BE ON TOP OF THE STACK 



MOV Nii3,-(5P3 
MOV 4tSPJ,W0 
MOV K0»3S 
TSTB CK0) 
BECj eJS 
CMPd #'0,tR0) 



JSAVE Hifi 

;PICK UP ADDRESS OF ASCIZ STRING 

ISAVE ADDRESS FOR TYPE OUT 

;IS This the TERMINATUR 

JIF YES TYPE IT OUT 

nS IT A ZERO 



MAlNDEC-11-OZRXA-E MACYll 27(732) 20-SEP-76 15S4b PAGE 49 
OZRXAE,PU DOUBLE LENGTH BINARY TU DECIMAL AiCII CONVERT WUUTINE 

HNE 4i 

MOVtJ «^ , tH0J + 

BR IS 

MOVB »'0,-CR0) 

TYPE 

OPEN 

MOV ISP)+,R0 

MOV tSP)+,lSP) 

WT8 PC 

JTYPES lb BIT WORD IN DECIMAL 

MOV lHb)+,-(SP3 

JSR PC,##$SB2D 

JSR PC»RTJUST 

RTS R5 



2633 


014420 


001005 








2634 


014422 


112720 


000040 






2635 


014426 


000770 








2636 


014430 


112740 


000060 




Sit 


2637 


014434 


104400 






44: 


2638 


014436 


0000-30 






341 


2639 


014440 


012600 








2640 


014442 


01261b 








2641 


014444 


0002!?7 








26fl2 












2643 












2644 












2645 


014446 


012546 






SGLDEC! 


2646 


014450 


004737 


014146 






2647 


014454 


004737 


014376 






2648 


014460 


000205 








26«9 












2650 












2651 


014462 


047125 


054105 


042520 


MUNXDOS 


2652 


014470 


052103 


04210S 


042040 




2653 


014476 


042040 


046440 


051101 




26i4 


014504 


000113 








2655 












2656 


014506 


020104 


020104 


040515 


MDOMIS! 


2657 


014514 


045522 


046440 


051511 




2658 


014522 


044523 


043516 


000 




2659 












2660 












2661 


014527 


104 


052101 


026101 


MDtRHDR 


2662 


014534 


047040 


020117 


052123 




2663 


014542 


052101 


051525 


042440 




2664 


014550 


051122 


051117 


000 




2665 












2666 


014555 


040 


047117 


052040 


MTRKl 


2667 


014562 


040522 


045503 


000 




2668 












2669 












2670 


014567 


040 


043040 


047522 


MPHESI 


26TI 


014574 


020115 


051124 


041501 




2672 


014602 


000113 








2673 












2674 


014604 


027440 


051440 


041505 


MSECT! 


2675 


014612 


047524 


000122 






2676 












2677 


014616 


005015 


041040 


052131 


MCOUMUN 


2678 


014624 


020105 


041040 


042101 




2679 


014632 


020040 


047507 


042117 




2680 
2661 
2682 


014640 


005015 


000 






014643 


015 


041412 


052501 


O0LO4D! 


2683 


014650 


044524 


047117 


026440 




2684 


014656 


044440 


020106 


047531 




2685 


014664 


020125 


042504 


044523 




2686 


014672 


042522 


0S2040 


020117 




2687 


014700 


042524 


052123 


052440 




2688 


014706 


044516 


020124 


060 





;IF NO GO PRINT IT 

IIF YES REPLACE IT WITH A SPACE 

!TEST NEXT CHAR, 

;STRING OFF ALL ZEROS, PuT BACK THfc LAST ONE 

,'TYPE THE STRING 

PRESTORE R0 
^RESTORE THE STACK 
JRETURN 



fput number to be typed on stack 
iconvert number tu decimal 
;type the decimal number 



.ASCIZ "UNEXPECTED MARK" 



.ASCIZ "0 D MARK MISSING" 



.ASCIZ "DATA, NO STATUS ERROR" 



•.ASCIZ " ON TRACK" 



.ASCIZ " FROM TRACK" 



.ASCIZ " / SECTOR" 



052131 MCOUMUN: .ASCIZ <15»«12>" BYTE BAD G00D"<15><12> 



052501 O0LO4D! .ASCII <15»<12>"CAUTI0N > IF YOU DESIRE TO TEST UNIT 0" 



MAlNOEC-U«DZRi<A»E 
DZRXA|;,PU DOUBLE 



LENGTH oINARf TU DECIMAL ASCII CONVE«T HQUTINt 



2689 
2690 
269i 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
270?) 
27WI 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
27^39 
2710 
27U 
2712 
2713 
27H 
2715 
2716 
2717 
2718 
2719 
2725* 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
27«3 
2711 
2742 
27^3 
27^4 



Plfl7i3 
014720 
014726 
tli4734 
314742 
B14750 
014756 
014764 
014770 
314776 
015004 
015?<12 

--515016 
015024 
015032 

315040 

ai50a6 

£15047 

.115052 

015055 

£15057 

'^15061 

^15063 
C15070 
01507b 
E15104 

CI 51 06 
?15U4 

:il5ll6 
015124 

£15126 
015134 
tU5142 

015150 
315156 
ai51fe« 

?15167 
D15174 

015177 

L- 1 5204 



015 
040514 
040517 
044504 
052111 
041523 
020110 
i)52105 
005015 
050040 
041440 
052516 

047516 
042526 
042101 

020040 

000 

40 

0Q5015 

104 

055 

007 

105 
(341440 
044524 

003040 

047125 

000040 

^47125 

000040 

340510 
2'a7i05 
052105 

044440 
041505 
320075 

122 

020075 

040 
036440 



?^510ia 050105 

042503 046040 

020104 042515 

046525 053440 



020110 
040522 
044504 
042524 
044124 

047117 

ri0idi05 

042040 
020123 



020101 
041524 
045523 

047105 
051523 
044524 



044522 
042522 



0wb531 000012 

020040 020040 TAB! 

0*^0040 OBLSP! 

000 MCRLF! 

000 M£OPJ 

000 MtKEOPI 

(d00 mahell: 

?51122 051117 MtHht&UtR! 

!?ia7ll7 044504 

047117 020123 

C552111 030040 MUNIT0: 

0521U 030440 MyNlTl! 



02M123 042502 MpELETS 

04204-4 046105 

P42105 000^'56 

fr-521lo 05304k) MlNTVtC: 

047524 020122 

000 

0«1530 020123 HRXCS! 
000 

054122 MaU04 MwxDR! 
000043 



015210 052123 052101 051525 HaSTAT! 



.ASCII <l5><12>»HEPLACb LUAO MEDIUH WITH A SCRATCH UiSKETTi" 



.ASCIZ <15><12>»TH6N PRESS CONTINUE" 

.ASCiZ "NO DRIVES READy"<l5><12> 

•ASCIZ «40»<40><40>«40>440><40> 

.ASCIZ <40>440> 

, ASCIZ <15><12> 

.ASCiZ "0" 

.ASCIZ "«» 

.ASCIZ <07> 

.ASCIZ "ERROR CONDITIONS " 

.ASCIZ "UNIT " 

.ASCiZ "UNIT 1 " 

.ASCIZ "HAS 6EEN DELETED," 

.ASCIZ " INf VECTOR a " 

.ASCIZ "WXCS a " 

.ASCIZ " RXDH 8 " 

.ASCIZ "STATUS AS" 



MAINUEC-U-OZRXa-E 
OZRXAE.PII DOUBLE 



HACYU 27(732) 20-SEP-76 15!46 PAGfc 51 
LENGTH BINARY TU DECIMAL ASCII CONVERT HOUTiNt 



i 



27«5 


01521b 


040440 


036410 


000id40 








2716 
















2717 


015224 


052123 


052101 


051525 


MBSTAT! 


.ASCIZ 


"STATUS B a " 


2718 


015232 


341040 


036440 


00004ifl 








2719 
















2750 


015210 


0W5015 


000012 




DBLlF! 


.ASCIZ 


<15><i2><12> 


2751 
















2752 


015244 


036520 


000040 




MRAT! 


.ASCIZ 


"PB " 


2753 
















2754 


i?l5250 


036524 


600040 




mtest: 


.ASCIZ 


II T 8 •• 


2755 
















2756 


yjl5254 


036523 


000010 




MSEQJ 


.ASCIZ 


«Sa " 


2757 
















2758 


315260 


047516 


0U4410 


052116 


HINTERl 


.ASCIZ 


"NO INTERUPT AT DONE ERROR 


2759 


015266 


051105 


050125 


020124 








2760 


fl5274 


052101 


042010 


047117 








2761 


015302 


0201^5 


051105 


047522 








2762 


015310 


000122 












27b3 
















2764 


315312 


047125 


047113 


053517 


MUKNINT: 


.ASCIZ 


"UNKNOWN INTERUPT" 


2765 


015320 


020116 


047111 


042524 








2766 


015326 


352522 


052120 


000 








2767 
















2768 


015333 


124 


052117 


046101 


MERCTI 


.ASCIZ 


"TOTAL READ CHtCK ERRORS s 


2769 


315310 


051040 


040505 


020104 








27T0 


015346 


014103 


041505 


020113 








2771 


015354 


051105 


047522 


051522 








2772 


015362 


036440 


000010 










2773 
















2774 


015366 


044506 


046114 


052502 


MplLt 


.ASCIZ 


"FILLHUFFER " 


2775 


015374 


043106 


051105 


000010 








2776 
















27f7 


015402 


046505 


052120 


011131 


MeMPTYJ 


.ASCIZ 


"EMPTYBUFFER " 


2778 


015110 


013125 


042506 


020122 








2779 


015416 


000 












27B0 
















2781 


P15117 


104 


044522 


042526 


MICQNI 


.ASCIZ 


"ORIVE(S) " 


2782 


315124 


051450 


020051 


000040 








2783 
















2784 


015432 


312521 


052123 


044040 


MhUNGI 


.ASCIZ 


"TEST HUNG"<15><12» 


2785 


315110 


047125 


006507 


0001^12 








2786 
















2767 


015416 


047516 


05151b 


040521 


mnonstd: 


•ASCIZ 


"NONSTANDARD TRACK / SECTOI 


2788 


015154 


042116 


051101 


020104 








2789 


015162 


051121 


041501 


020113 








2790 


015170 


020057 


042523 


052103 








2791 


015476 


051117 


046010 


046511 








2792 


015504 


052111 


000123 










2793 
















2794 


015510 


042117 


000075 




MODI 


.ASCIZ 


••OOB" 


2795 
















2796 


015514 


012111 


000075 




MIDI 


.ASCIZ 


"IDS" 


2797 
















2793 


015520 


044506 


051522 


036524 


MFIRSTI 


.ASCIZ 


"FIRSTS" 


2799 


015526 


000 












2800 

















Oinn&g^^li DOUBLE 



MACVil a7(73a3 aii5«SEP«7b iSUb PAGE Si 
LENSIM siNARy TU DgCIMAU aSCII CDNVE«T ROUTINg 



gS0| 


0lBSa7 


114 


051501 


036524 


MUAST! 


asea 


015534 


000 








asas 












a804 


015535 


HI 


044516 


027124 


MINITU 


3805 


Bl554g 


047504 


042516 


047040 




aa06 


0155S0 


052117 


0S1440 


052103 




a80T 


015556 


043440 


051123 


051117 




3803 


315564 


00501S 


003 






3809 












aeie 


015567 


111 


044516 


087134 


M1NIT2! 


§811 


015574 


047504 


043516 


051440 




aeu 


015603 


053105 


043440 


0S1122 




3813 


S15610 


051U7 


00S015 


000 




a6i4 












asis 


015615 


104 


043040 


042440 


MODERJ 


i&ib 


013623 


051133 


051117 


000 




2817 












28S8 


015637 


laa 


041505 


053117 


MREC! 


asH 


015634 


051105 


041101 


043514 




aaa0 


015642 


000000 








aaai 












iQBi 


015644 


051103 


030103 


051105 


MBADCHC! 


asas 


315652 


047533 


030122 


047516 




aea^ 


015660 


043040 


052101 


030101 




2BS5 


01S666 


051105 


047523 


000133 




B&ib 












aaar 


01567^ 


042533 


043101 


000^)40 


MRfeAOl 


2838 












aeag 


01570a 


040510 


052114 


032040 


MHALT4I 


3830 


015710 


005015 


M00 






asii 












asia 


015713 


110 


04e>i0i 


020134 


MHALT3I 


a833 


015730 


006463 


000012 






a83<i 












3835 


015734 


000510 


052U4 


030440 


MMALTli: 


3836 


015732 


006461 


000013 






3637 












3838 


015736 


040504 


040524 


041a40 


MCNCS 


3839 


015744 


041533 


043440 


051122 




3840 


P15753 


051117 


000 






3811 












38«3 












3843 


015755 


040 


047125 


042522 


HUNREC! 


3844 


015762 


047503 


042526 


040533 




3845 


015773 


046103 


030105 


000 




38«6 












3647 


015775 


133 


^42505 


020113 


MSfcEKS 


3848 


016003 


05U05 


t«47533 


000132 




3849 












3850 


(^16010 


051137 


052111 


020105 


HwRlTt! 


385i 


016016 


00id 








3852 












2853 


5316017 


130 


051101 


«52lll 


mpar: 


365« 


016034 


020131 


051105 


047522 




3855 


016032 


000132 








3856 













.ASClZ "LASTS" 

.ASCIZ "INITaUONE NOT SET ERR0»"«15!>'<13> 

.ASCI2 "INIT.DONE SET ERROR" <15»«12> 

.ASCIZ "D D tRROR" 
,ASCIZ "RECOVERABLE " 

9ASCIZ "CRC ERROR NO UATA ERROR" 

.ASCIZ "READ " 

,ASCI2 "HALT 4" <15><12> 

aASCiZ "HALT 3" <15><12> 

.ASCIZ "HALT U" <15><12> 

.ASCIZ "DATA CRC ERROR" 

.ASCIZ " UNRECOVERABLE " 

.ASCIZ "SEEK ERROR" 
, ASCIZ "WRITE " 
.ASCIZ "PARIly EHROR" 
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2857 


016034 


051105 


047523 


020122 


MNUFLAGI 


2856 


016042 


04fal0b 


043501 


043440 




2859 


016050 


051133 


B51117 


000 




2860 












2861 


016055 


133 


030530 


030061 


HDUHPI 


286a 


^16062 


053504 


050115 


000 




2863 












2864 


016067 


105 


051133 


051117 


mews: 


2865 


016074 


000133 








2866 












2867 


016076 


044133 


051117 


030134 


MSHORTI 


2868 


E16104 


053504 


050115 


000 




2869 












2870 


016111 


133 


051505 


040534 


HRESTARTl 


2871 


016116 


053133 


020133 


030075 




2872 


016124 


000 








2873 












2874 


016125 


130 


051501 


030133 


MN0PA5! 


2875 


016132 


041101 


051117 


043534 




2876 


016140 


000104 








2877 












2878 


016142 


040520 


051523 


051505 


HPASSt 


3879 


016150 


036440 


000040 






2880 












2831 


0161S4 


051127 


0521U 


043534 


MwRTENS 


8882 


016162 


020116 


000 






2883 












2884 


016165 


057 


000040 




MSLASHI 


3885 












2886 


016170 


000040 






SPACE? 


2887 












2888 


016172 


051105 


047522 


051522 


MCQDESI 


2889 


016200 


050040 


05U03 


042440 




2890 


016206 


051122 


0S1117 


041440 




2891 


016214 


042117 


051505 


005015 




2892 


016222 


000 








2893 












2694 


016223 


124 


040522 


045503 


MTKLOCil 


2895 


016230 


020040 


041501 


042503 




2896 


016236 


051523 


042105 


020040 




2897 


016244 


046440 


053117 


042105 




2898 


016252 


052040 


020117 


020040 




2899 


016260 


052440 


044516 


020124 




2900 


016266 


020060 


052440 


044516 




2901 


016274 


020124 


020061 


051105 




2902 


016302 


047522 


051522 


005015 




3903 


016310 


000 








2904 












2905 


016311 


050 


047516 


042516 


MNONEl 


2906 


016316 


006451 


000012 






2907 












2903 


016322 


047507 


042117 


000 


MGOODI 


2909 












29iS 


01632? 


040 


041440 


042510 


MSUMS 


2911 


016334 


045503 


051440 


046525 




2912 


016342 


000040 









.ASCIZ "ERROR FLAli ERROR" 



.ASCIZ 


"RXll UUMP" 


.ASCIZ 


"ERHORS" 


.ASCIZ 


"SHORT UUMP" 


.ASCIZ 


"RESTARTS a " 


.ASCIZ 


"PASS ABORTED 


.ASCIZ 


"PASSES B " 


.ASCIZ 


"WRITTEN " 



.ASCIZ "/ " 
. ASCIZ <<40» 
tASCIZ "ERRORS PER ERROR C0DES"<15><12> 



.ASCIZ "TRACK ACCESSED MOVED TO 



UNIT UNIT 1 tRR0RS"<l5><12s. 



.ASCIZ »CNON£3"<15><12> 

.ASCIZ "GOOD" 

.ASCIZ " CHECK SUM " 
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2913 
2914 
2915 
2916 
29i7 
2918 
29S9 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
29ii 
2932 
2933 
29ia 
2935 
2936 
2937 
2938 
2939 
29«^ 
29^1 
2942 
2943 
2944 
2945 
29«6 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
29b2 
2963 
2964 
2965 
2966 
2967 
2966 



016344 
016352 

016360 

016363 

016370 
016376 
016404 
316412 
016420 
016426 
Z16430 
016436 
in64a4 
016452 

ei645S 
016462 
316470 
016476 
316504 
316512 
3i652k3 
016523 
Ci6530 
?16536 
C16544 
^16552 

316554 
316562 
2^16570 
316576 



005015 
027440 
030461 

015 
045503 
052111 
042514 
047440 
02010b 
026105 
051525 
042117 
^42111 
005015 

015 
047524 
044515 
046105 
020104 
043117 
042507 

125 
043040 
B30475 
052123 
000012 

005015 
042504 
042055 
042455 

016604 



016604 000200 



01700(4 
i3i7006 
!i!l70l0 
K17U12 
017014 
017016 
G17020 
-!17d22 



000012 

000012 

000012 
'300012 

mmii 

000012 

000012 
'500012 



054122 

0S1040 
000 

052^12 
046040 
020123 
052103 
052125 
0a0S22 

047111 
030075 
030475 



051412 
021^122 
051524 
041505 
052517 

051K54I4 
054 
044523 
051111 
020W54 
031475 



030461 
053130 



040522 
046511 
042523 
042105 
047440 
043516 

020107 
020054 
032fe)61 



041505 
044514 
051440 
042524 
020124 
047101 

043516 
052123 

040514 
006462 



0413515 047111 

026503 030461 

051132 040530 

005015 000 



«ASCiZ «|5>«12»"RXli / RXVli" 



aASCU <15>«12> "THACK LIHXTS SEL&CTEO OUT OF NANGE, 



sASClZ "USING OD80, IDal H"<15>'Sl2s. 



,ASCU <15>«12> "SECTUH LIMITS SELECTED DUT OF KANGt," 



.ASCl^ "U5INI. FIRSTal, L ASTa32»< 15>< 1 2> 



.ASCIZ «15><12>' "HAINUfcC-U-DZRXA-E" <15><12> 



.EVEN 



*««*******«*****)** 



t*ft#****Aft**** 



ITHE FULLOwING LOCATIUNS ARE USEU FOR UATA STORAGE, RE TWV COUNTERS 
MCCESS COUNTtHS ETC. 

HUFADRl .BLKM «J00 



JRETRY COUl^TtHS 

WORETRY: li/>, 

wtretry: la, 

odhetry: iV', 

dataretryi la, 

P2WeTRY{ 10, 

PRETRY! Iv, 

CRETRY! tt(», 

SRETRY! lfe>. 



;FOR SETUP PURPOSE RDWETPY MUST HE FIRST ON RETRY LIST 



IFOR SETUP PURPOSE SRETRY MUST BE LAST ON RETRY LIST 



JGENEkAL ERROR COUNTERS 
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2969 


317024 


000000 


2970 


217026 


000000 


2971 


017030 


000000 


2972 


317032 


000000 


2973 


017034 


000000 


2974 






2975 


017036 


000000 


2976 


017040 


00000^ 


29/7 


217042 


000000 


2978 


i:i7044 


000000 


2979 


017046 


000000 


2980 


017050 


000000 


2981 


017052 


000000 


2982 


S17054 


000000 


2983 


C17056 


000000 


2984 


017060 


000000 


2985 


017062 


000000 


2986 


317064 


000000 


2987 


017066 


000000 


2988 


017070 


000000 


2989 


317072 


000000 


2990 


P17kJ74 


000000 


2991 


017076 


000000 


2992 


017100 


000000 


2993 


017102 


000000 


2994 


017104 


000000 


2995 


017106 


000000 


2996 


017110 


000000 


2997 


017112 


000000 


2998 


017114 


000000 


2999 


017116 


000000 


3000 


017120 


000000 


3001 


017122 


000000 


3002 


017124 


000000 


3003 


017126 


000000 


3004 


017130 


000000 


3005 






3006 






3007 


017132 


000021 


3006 






3009 






3010 






3011 






3012 






3013 






3014 






3015 






3016 






3017 






3018 






3019 






3020 


017174 


000232 


3021 






SdSi 






3023 


017660 


000232 



PAHL0G8 


k} 


MPARLUG! 


M 


noerlog: 


ifi 


UKNINTI 


I6l 


INTERJ 


(a 


;ORIVt 


RELATED E 


ZSEKLOG! 





SEKLOG! 





ZCRCLOGS 





crclog: 





zcrcbad: 





CRCBAU: 


a 


ZR0L06I 





ROLUG! 





ZwRTLDGJ 


a 


WRTLOGJ 





ZUATALOGS 





OATALOGI 





ZUOMISl 





DOMISJ 





ZUNXDOI 





UNXOOl 





ZHSEKLOGt 





HSfcKUOGi 





ZHCRCLO&I 





hcrclob: 





ZHCKCBADi 





HCKC8A0I 





ZHROLOGt 





MRULOGI 





zhwrtlqbj 





HWRTLQUJ 





ZHDATAUOGt 





HUATAUOGI 





ZHODLQGI 





HODLOGI 





lERROR 


CODES 


ERCOOEI 


,BLKW 17 



;FOR SETUP PURPOSE PARLOG MyST BE FIRST ON COUNTERS LIST 



;"Z" LOGS ARE FOR DRIVE UNIT "Z"ERO 
;N0N"Z" LOGS ARE FOR URIVE UNIT 1 

? * * * NOTE! * * * 

;ERR0R CODES MUST NOT BE CHANGED 

;FR0M THIS ORDER, ERROR DUMP 

;assumes tags of logs are In order shown. 



;th£ following 2 blocks of words are track access counter and 

;HEAD moved to track counters, they are DOUBLE PRECISION 

ICOUNTEHS IN THE FOLLOWING FORMATTI 

I 

IIOCH LOW ORDER WORD TRACK 

;L0C.Xt2 HIGH ORDER WORD TRACK 

IL0C.X1-4 LOW ORDER WORD TRACK 1 

IL0C.)(*6 HIGH ORDER WORD TRACK 1 

lETC, 

ITOTAL ACCESS / TRACK 
TKACC! ,8LKW 232 

ITOTAL HEAD MOVEMENT TO TRACK 
HOMOVEI ,8LKW 232 
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3025 








3026 








3027 








302e 


020344 


000115 




3029 








3030 








3031 


020576 


000115 




3032 








3033 








3034 


021030 


000000 


000000 


3035 


021034 


000000 


000000 


3036 








303T 








5di6 


021040 


000000 




3039 


021042 


000000 




3010 








3041 


021044 


032737 


000020 


30^2 


021052 


001402 




3043 


321054 


062703 


000002 


3044 








3045 


021060 


000207 




3046 








3047 








3048 








3049 








30b0 








3051 








3052 


021062 


01270b 


001200 


3053 


021066 


104400 


015240 


3054 


021072 


005737 


022514 


3055 


021076 


E?01405 




3056 


021100 


104400 


015040 


3057 


021104 


1044^0 


016^76 


3058 


021U0 


000404 




3059 


021U2 


104400 


01504W 


3060 


C»21116 


104400 


01b055 


3061 


021122 


104400 


016554 


3062 


021126 


004737 


002452 


30b3 


321132 


005737 


1^21040 


3064 


921136 


001412 




3065 


021140 


104400 


01blll 


30b6 


P21144 


013737 


021040 


3067 


£21152 


004537 


01444b 


3068 


021156 


000000 




30b9 


021160 


104430 


315240 


3070 


021164 


005737 


021042 


3071 


021170 


001005 




3072 


021172 


104400 


01bl25 


3073 


021176 


104400 


015240 


3074 


021202 


000412 




3075 


021204 


I04a00 


0lbl42 


3076 


021210 


013737 


0211^42 


3077 


021216 


004537 


0l4a4b 


3078 


021222 


000000 




3079 


021224 


|vJ4400 


015ic52 


30B0 


021230 


005737 


022514 



WTCNTRJ 

rocntr: 



fTHE FOLLOWING 2 BLOCKS OF COUNTERS ARE SIN&UE PRECISION 

lEHROR PER TRACK ON UNIT 
sSLt^w 115 

lERROR PER TKACK UN UNIT 1 
.BLi^w 115 

ITOTAL t*RITt AND HEAD FUNCTIONS DOUBLE PRECISION COUNTERS 
.MORU 0,0 
.MQHU 0,0 



;RESTAKT and PASStS COMPLTED COUNTERS 
RESTCnTH! 

W ;FUR SETUP PURPOSE PASCNTR MUST HE PLACED LAST 



PASCNTRl 
UlLOGI 



BIT »BIT4,UNITSEL 
BEQ 1$ 
ADD »2»R3 



ITEST FOR UNIT IN OPERATION 

;IF BIT a IS RETURN AND INC. uNIT COUNTERS 

lADJUST THE CONTENTS OF Ri FOR 

JTHE ADDRESS OF UNIT I ERROR LOG COUNTERS, 



fSTATISTICAL ERROR RtPORT ROUTEEN 

^PRINTS ALL ERROR LOGS AND OPERATING CONDITIONS 



ERDUMP: 



is: 
2$: 



«fftA4t«ftft«til(«lS|ll!««l«*ft*AA« 



r*************)»*******S 



************* 



7$l 

5$: 



MOV »STACK,SP 

TYPE ,UBLLF 

TST bHURTRPT 

BEU IS 

TYPt ,TAB 

TYPE ,MSHORT 

BR 2S 

TYPE ,TAB 

TYPE ,MOUIiR 

TYPE ,MR£V 

JSR PC»ICONO 

TST REbTCNTR 

BED 35 

TYPE fMRESTART 

MOV REbTCNTR, 12S 

JbR R5,SGLDEC 

OPEN 

TYPE ,UBLLF 

TST PASCNTR 

BNE 4S 

TYPE ,MNOPAS 

TYPE ,U8LLF 

bR 54 

TYPE ,MPAbS 

MUV PASCNTR, 7$ 

JSR R5#Stii.DEC 

OPEN 

TYPE ,MCREF 

TST 5HURTHPT 



ns SHORT REPORT REQUESTED 
JNO, PRINT LONG REPORT 



;YES,TYPE SHORT REPOR HEADER 



ITYPE LONG REPORT HEADER 

JPRINT NAME AND REVISION OF PROGRAM 

ITYPE OUT SELECTED DRIVES AND TESTS 

)HAVE THE»E BEEN ANY RESTARTS 

»N0 

JYES, PRINT OUT l-Ow MANY 



JHAVE ANY PASSES oEtN COMPLETED 
lYES, PRINT OUT i^O\n MANY 
;NO,TYPt PASS AKORTEU 



;TYPE OUT NUMBER OF PASSES 



ns THIS A SHORT REPORT 
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3081 


021234 


001030 




3082 








3083 








3084 








3085 


021236 


104400 


016154 


3086 


£21242 


104400 


0lblb5 


3087 


021246 


104400 


015674 


3088 


021252 


104400 


015047 


3089 


021256 


012746 


021030 


3090 


e.21262 


004737 


014202 


3091 


021266 


004737 


01437b 


3092 


021272 


104400 


016165 


3093 


021276 


012746 


021V534 


3094 


021302 


004737 


014202 


3095 


P21306 


304737 


014376 


3096 


021312 


104400 


015240 


3097 








3098 








3099 


021316 


lid4400 


015052 


3100 


021322 


005737 


0171^24 


3101 


£21326 


001435 




3102 


021330 


013737 


017024 021342 


3103 


021336 


004537 


014446 


3104 


021342 


000000 




3105 


021344 


104400 


015047 


3106 


021350 


104400 


016017 


3107 


021354 


104430 


015052 


3108 


021360 


005737 


017026 


3109 


021364 


001416 




3110 


021366 


013737 


017026 021400 


31U 


021374 


004537 


014446 


3112 


021400 


000000 




3113 


021402 


104400 


015047 


3114 


021406 


104400 


015755 


3115 


021412 


104400 


016017 


3116 


021416 


104400 


015052 


3117 


021422 


005737 


017030 


3118 


021426 


001414 




3119 


021430 


013737 


017030 021442 


3120 


021436 


004537 


014446 


3121 


021442 


000000 




3122 


021444 


104400 


015047 


3123 


021450 


104400 


016034 


3|24 


021454 


104400 


015052 


3125 


021460 


005737 


017034 


3126 


021464 


001414 




312T 


021466 


013737 


017034 021500 


3128 


021474 


004537 


014446 


3129 


021500 


000000 




3130 


021502 


104400 


015047 


3131 


021506 


104400 


01S260 


3132 


021512 


104400 


015052 


3133 








3134 


321516 


104400 


015240 


3135 


021522 


104400 


015106 


3136 


021526 


104400 


015116 



fYES, DON'T PRINT wRITE/READ TOTALS 



;PRINTb TOTAL NUMBER OF SECTORS WRITTEN 
JREAD FOR THE DURATION OF RUN TIME, 



TYPE ,MWRTEN 
TYPE ,MSLASH 
TYPE ,MREAD 
TYPE,DBLSP 
MOV »WTCNTR,-CSP3 
JSR PCr«!»SDB2D 
JSR PCRTJUST 
TYPE ,MSLASH 
MOV 8RUCNTR,-CSP) 
JSR PC»#!»SDti2D 
JSR PCiRTJUST 
TYPE ,DBLLF 

ITYPE OUT MICRO CPU RELATED ERRO 

TYPE ,MCRLF 

TST PARLOG 

BEQ IS 

MOV PARLOG, 2I<3$ 

JSP R5,SGLUEC 

OPEN 

TYPE ,DBL5P 

TYPE ,MPAR 

TYPE,MCRLF 

TST HPARLOG 

BEQ 19 

MOV HPARLOG, 21S 

JSR R5»SGLDEC 

OPEN 

TYPE ,DBLSP 

TYPE ,MUNREC 

TYPE ,MPAR 

TYPE ,MCRLF 

TST NOERLOG 

BEQ iS 

MOV NOERLOG, 24$ 

JSR R5»SGLDEC 

OPEN 

TYPE ,DBLSP 

TYPE ,MNOFLAG 

TYPE ,MCRLF 

TST INTER 

BEQ 4$ 

MOV INTER, 25S 

JSR R5,SGLDEC 

OPEN 

TYPE ,UBL5P 

TYPE ,MINTER 

TYPE ,MCRLF 
ITVPES DRIVE RELATED ERRORS 

TYPE ,OBLLF 

TYPE ,MUNIT0 

TYPE ,MUNIT1 



IPRINT wRT/RO MESSAGE 



lADDRESS OF TOTAL i».RITES ON STACK 
ITYPE TOTAL WRITES 



lADORESS OF READS ON STACK 
ITYPE TOTAL READS 



RS 

IWERE THERE ANY PARITY ERRORS 

IYE5,TYPE OUT THE NUMBER 



IWERE THERE ANY HARD PARITY ERRORS 
IYES,TYPE OUT THE COUNT 



lANY STATUS ERROR FLAG ERRORS 
IIF NONE CHECK NEXT ERROR 
IYES,TYPE OUT COUNT 



lANY NO INTERUPT ON DONE ERRORS 
IIF NONE CHECK NEXT ERROR GROUP 
lYES, PRINT OUT NUMBER 



ITYPE OUT COLUMN HEADINGS 



02«!(&E,PiS OUUeie LEnuTM binary TU decimal ASCII CONvgkT HOUTINt 



3lJ7 


^ii'533 


ikjaa'^a 


016170 


3153 


321536 


j^aaa^ 


ai6067 


313? 


aaisaa 


iisaa0k3 


015k'52 


31^0 


321536 


00S002 




3Hi 


£81550 


0l37afe 


022516 


3l«g 


02155a 


0l27a6 


013362 


3l«3 


v52i560 


012736 


013506 


3i«4 


02156a 


0127a6 


013527 


3H5 


-^■21570 


013736 


016010 


31^6 


C2l57a 


012736 


015673 


31^7 


621600 


012736 


015633 


3l«8 


F2ib0a 


0l27aG 


0l5?Sb 


3Hq 


e2ibi^ 


0127 36 


K15775 


313? 


?2i6ia 


?li2701 


£•■1 7 036 


3151 


£2162ki 


/10571b 




3iba 


021622 


i30ia36 




3lS3 


32ib2a 


005721 




3lb(| 


;:2ifc26 


001005 




3155 


C2lfe30 


005711 




31S6 


k.21632 


0010B3 




3137 


n2ibia 


005721 




3156 


i^2l636 


00S726 




3li9 


32l6a0 


000767 




3160 


^21642 


305202 




3lbl 


w2ioaa 


5113137 


021653 


3lba 


C21650 


303537 


('13336 


3lb3 


B2t65a 


000000 




3lb4 


t'21b5fc 


10333^' 


Clb^UJ 


3lb5 


P21662 


305721 




3lfeb 


t2l66a 


t.l2l37 


K2lo73 


3167 


C^21670 


003537 


M 1 a a 3 6 


3168 


w2167a 


000000 




3169 


^21676 


1033C»0 


015037 


3170 


1'21702 


312637 


021710 


3171 


r2l7fe56 


103300 




3l7a 


C21710 


003000 




3in 


'321712 


l0a«?d 


0151^.52 


3l7a 


^'21718 


000 7 3-4 




3175 


'<'217 20 


103300 


^■515052 


3l7fe 


.:)2172a 


;ll37ab 


02251b 


3177 


-3217 30 


312736 


vil5el5 


3178 


L2l73a 


012736 


Ml 3527 


3179 


£.21730 


112736 


i;''lb('il0 


3180 


Vi217aa 


012730 


015673 


3181 


k- 21 750 


'^12736 


Hl563« 


3162 


02175a 


01273b 


015736 


3183 


^.21760 


012736 


?115775 


3iaa 


02i76a 


012701 


/< 1 7 fe' 7 h 


3185 


1^21770 


005716 




318b 


/21772 


0013 37 




3187 


^2l77a 


y0572i 




3l8§ 


3217 76 


00lPi'35 




3169 


fr^22v400 


005711 




3190 


722*502 


001003 




3191 


•;''2?00a 


005721 




3195 


i'22''?fe 


0W5726 





TYPfc fSPACt 


TYPt ,MEHS 


TYPE ,MCHL.F 


CLR 


Hi 


MOV 


ZfeH0,«CSP3 


MOV 


SMUNXD0,-CSP3 


MOV 


»MODMIS,«(SP) 


MOV 


»MUERHDR,-CSP) 


MOV 


»MWRnt,-CSP) 


MOV 


»MHfcAU,«CSP3 


MQV 


»MtlADCHC»-CSP3 


MOV 


»MCRC,-CSP3 


HOV 


»MSEEK,«15P3 


MOV 


»ZStKUDG,Rl 


TST 


tSPJ 


aEQ 


5S 


TST 


IRU* 


BNE 


bS 


TST 


tKU 


MNE 


bS 


TST 


tHn + 


TST 


ISH) + 


HW 7» 


INC 


K2 


MOV 


-CWl},i03 


JSR 


H5,SGL0EC 


UPEM 


TYPE ,Uttl.6P 


TST 


IR1) + 


MOV 


CRl)+,ilS 


JS« 


W5,SGtl)tC 


UPEN 




rvpfc 


. ,UBL,6P 


MUV 


tSP)+, 13S 


TYPt 




QPgN 




TYPt 


■ ,HCR|,F 


Hh 73) 


TYPt 


,MCNu^ 


MUV 


ZtWO,-tSPJ 


MOV 


«HL)UhW,-lSP) 


MOV 


»MUtRHDR,-CSP) 


MOV 


»MiNRnt,-t5P) 


MUV 


BMRtAU»-CSP3 


MUV 


SMHADCWC-CSP] 


MOV 


s'MCRCi^OP) 


MOV 


st^attKf-iSP) 


HUV 


»ZHbtKLOG,Pl 


TST 


ISP) 


HtQ 


BfcHRS 


TbT 


{Hl]4. 


BNE 


11» 


T6T 


IRl) 


WNE 


lia. 


18T 


IHIJ* 


TbT 


C5H3 + 



JH2 USED AS AN ERROR PRINJEO FLAG 
IPUT ADDR OF ZERO MARK ON STACK 
JPUT ADDRESSES OF ALL RECOVERABLE 
JERRDR MESSAGES ON THE STACK 



>PUT f-IRST ERROR CUONTER IN REGISTER 

IGET ADDRESS OF MESSAGE 

HF FINISHED SOFT ERRS 00 HARD ERRS 

tlS DRIVE COUNTER CLEAR 

INOfGO PRINT ERROR COUNTER 

US ONIVE 1 COUNTER CLEAR 

7N0,G0 PRINT ERROR COUNTER 

JADJUST Rl FOR NEXT UNIT COUNTER 

fAOJUST STACK FDR NEXT ADDRESS 

;G0 TEST NEXT PAIR OF COUNTERS 

IMAKE ERRUR PRINTED FLAG NON ZERO 

ITYPE CONTENTS OF UNIT COUNTER 



.•ADJUST Rl FUR UNIT 1 COUNTER 

JTYPE COUNTER»GET AUDR OF NEXT IN Rl 



.'TYPE ERROR MtSSAGE FROM STACK 



;GFT NEXT CUUNTtR 

;PUT ADUR OF ZEND MARK ON THE STACK 
;PUT ADDRESS OF ALL HARD EWROH 
;MESSAGLS ON THE STACK 



IPUT f-IRST HARD ERROR COUNTER IN Rl 

{GET AUijRESS OF MtSSAbE FROM STACK 

JIF FINISHED kRROR LOGS 

US OHl\/F COUNTER CLEAR 

JND, PRINT EWROR CUUNTtR AND MESSAGE 

US DRIVE 1 COUNTER CLtAR 

;no,GO print THt ERRUN 

JADJUST Rl FOR NEXT UNIT ^ LOG 

.•ADJUST STACK FOR NEXT ADDRESS 



MAlNDeC-U-OZRXA-E MACYll 27(7323 20-SEP-76 l5:3b P*UE 59 
DZMXAg^H-n D0U9LE LENGTH BINARY TU DECIMAL ASCII CONVERT ROUTINE 

US! MOV -(R13,32$ 

JSR R5iSGLUEC 

Hi: OPEN 

TYPE fUcSLSP 
TST CRU* 
MOV CRU + ,J3S 
JSR K5,SGLUEC 

33S; UPEi^ 

TVPE jDBLSP 
TYPc ,MyNRtC 
MUV l5P3+»iaS 
TYPE 

lass OPEN 

TYPE ,MCRLF 
ti» 12$ 
{PRINTS ERRORS PER EWROR CODES 

dEWRSi TST R2 

HNE 5$ 
TYPt ,TAB 
TYPt ,MNONt 

S»» CLR N2 

TYPE iDBLLK 
TYPt ,MCODtS 
MUV »1,R0 
MOV 9ENC0Ut,Rl 

2SJ CMP R0,i»22 

BNF 3« 
HR fYPTRK 

3S« TST IR13+ 

HNE U 
INC K0 
BR 2S 

is» MOV -CHlS^as 

JSR R5,SGLDEC 
asi OPEN 

TYPE ,TAe 

MOV R0,R2 
ASL H2 
ASL »i 
ASL W2 
N2, -15P3 



3193 


?22010 


0007 6 7 




3193 


C.22ei2 


013137 


'A^a>i)?i 


3195 


122016 


E03537 


1 3 4 3 b 


319b 


C8?0Si 


:130000 




3l97 


'^22023 


103300 


015i'37 


3198 


322030 


005721 




3199 


h23id5a 


012137 


022032 


3200 


r22036 


003557 


r.n a 3 3 6 


3201 


*220a2 


000000 




3202 


^'22043 


103 300 


^"1503 7 


3203 


0-22050 


103a00 


i/j 15755 


3203 


e220Sa 


0126 37 


022062 


3205 


022060 


103 30a 




3206 


e22062 


000000 




3207 


k22'^63 


103300 


015052 


3208 


r22370 


000737 




3209 








3210 


022072 


005702 




3211 


U22074 


001003 




3212 


^22076 


103300 


015030 


3213 


S22102 


103300 


016311 


32ia 


t'22106 


005002 




3215 


022110 


103«00 


01524W 


3216 


r'22ua 


103400 


^16172 


3217 


Q22120 


012700 


000001 


3218 


"22123 


ai27f^l 


017132 


3219 


^22130 


020027 


K00i^22 


3223 


022133 


001001 




3221 


022136 


000427 




3222 


022130 


005721 




3223 


?22i32 


001002 




ssan 


'?22l3a 


005200 




3225 


022146 


000770 




3226 


322150 


014137 


022160 


322T 


022153 


004537 


£^•13446 


3228 


1^22160 


01^3000 




3229 


022162 


103400 


015040 


5250 








3231 


02216b 


010002 




3232 


022170 


006302 




3233 


322172 


006302 




3234 


022173 


006302 




3235 


C22i76 


010246 




3236 


e22200 


104402 




3237 


022202 


004 




3236 


C22203 


001 




3239 


022203 


103a00 


015052 


52'ilS 


022210 


y)0S200 




32'»l 


022212 


005T21 




3242 


022213 


000745 




3233 








3233 


022216 


005702 




3235 


Q22220 


001004 




32«6 


SiiBiiS 


104400 


015040 


3237 


?!22226 


104400 


016311 


32«e 


^iii5i 


104400 


015230 



UYPE CONTENTS OF UNIT fc COUNTER 



.•ADJUST Rl FOR UNIT 1 COUNTER 
UYPE UNIT 1 uOG 



UYPE UNRtCOVERASLE 
lERROR MESSAGE FROM STACK 



IGET NEXT LOG 

JWAS AN ERROR PRINTED IN THE LAST CROuP 
UF R2 IS NONZERO BRANCH 

UYPE NONE 

;CLEAR ERROR PRINTED t-LAG AGAIN 

UYPE ERROR PER ERROR CODE 

ISET UP COnE COUNTER 

IGET AOUR OF FIRST ERROR CODE 

US THE LAST CODE PRINTED 

INOiTEST THE NEXT ONE 

IYES,GO PRINT TRACK INFOMATION 

UEST FOR WORD, GET NEXT ADDRESS 

UF NOT TYPE COUNT AND CODE NUMBER 

UNC CODE COUNTER 

IPUT CONTENTS OF COUNTER IN OPEN 
IFOH TYPE OUT 



IPUT CODE NUMBER IN REGISTER TO 

UYPE IT OUT IN THE FROM OF ERROR CODE 



MUV 
TYPOS 
.BYTE 
.BYTE 



USAVE R2 FOR TYPEOUT 
IIGO TYPE-«OCTAL ASCII 
lUYPE 4 DIGITCS3 
lUYPE LEADING ZEROS 



ISET UP FOR NEXT COUNTER 
IGET NEXT ERROR COUNTER 



I 

TYPt ,MCRLF 
INC K0 
TST tHi3* 
SR 2$ 
IPRINTS TRACK ACCESS, MEAD MOVEMENT, AND ERRORS PER TRACK 

■''ST R2 IWAS AN ERROR PRINTED IN LAST GROUP 

W^'E 5S IIF PRINTED ERROR FLAG NONZERO BRANCH 

TYPE ,TA8 

TYPE ,MNONt UYPE NONE 

TYPE ,U8LLF 



MAINDEC-ii-DZRXA-fe HACYU 27(732) 20'»5EP»7fe I5l«b P&Gt b0 

ozRXAEtPii ooueue length binary tu decimal ascii convewt houtine 



3S49 

32S0 

3251 

32S2 

3253 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3266 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3200 

3281 

3282 

3283 

3284 

3285 

3266 

3287 

3288 

3289 

3290 

329i 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 



022236 
0222^2 
022244 
022230 
0222S4 
022260 
022264 
022270 
022274 
022300 
022302 
022304 
022310 
022312 
022316 
022320 
022322 
022324 
022330 
022332 
022336 
322340 
022344 
022350 
022354 
022360 
022362 
022366 
022372 
322376 
022402 
022404 
022406 
022412 
022416 
022420 
022422 
022424 
022430 
022434 
S22440 
022444 
022446 

C22450 
322452 
022454 
022456 
E22462 
022464 
022466 
022472 
022476 
022504 
02250b 
022512 



005737 
001121 
104400 
00S037 
012704 
012703 
012702 
012701 
062704 
005714 
001010 
005764 
001005 
062703 
005722 
00S721 
000463 
004537 



022514 

01b223 
022330 
017170 
017654 
020344 
020576 
000004 



104400 
010446 
004737 
004737 
104400 
062703 
010346 
004737 
304737 
104400 
104400 
005712 
091421 
012237 
004537 



014446 

01bl70 

014202 
01«37b 
016170 
n0000a 

014202 
014376 
015047 
01617 



022416 
0iaa46 



005711 
001420 
104400 
10a400 
012137 
004537 
000000 
000407 

005722 
005711 
001403 
104tt00 
000762 
005721 
104400 
005237 
323727 
001273 
005037 

000000 



016170 
015047 
022<t44 
01«446 



10St 

2s: 



015052 
022330 
022330 000115 



7*1 

US! 

12Si 



T5T SMURTRPT 

BNE bS 

TYPE fMTKUUG 

CUR 2S 

MOV »TKACC-4,H4 

MOV »MUM0VE-4,R3 

MOV »U0TRK|R2 

MOV »UITRK,R1 

AOD #4,Ra 

TST tRa) 

UNE 10% 

TST £CR4) 

HNE 10i 

ADO »4,R3 

TSTIR2J+ 

TST IRU + 

BR Ids 

JSR HSjSGLUEC 

OPEN 

TYPE , SPACE 

MOV Ka,-tSP) 

JSR PC###$DQ2D 

JSR HC»RTJUST 

TYPE ,aPACt 

AOO »a,Rj 

MUV Wi,-C5P5 

JSR PC»P»SDB2D 

JSR ^'CRTJUST 

TYPE ,P8LSP 

TYPE , SPACE 

TST IH2) 

dtQ d0;b 

MOV IH23+|3$ 

JSR H5,SGLUEC 

OPEN 

TST IRl) 

BEQ 74 

TYPE , SPACE 

TYPE ,UBLSP 

MOV lRU + f4S 

JSR W5»SGl.UEC 

OPEN 

HH US 

TST IRef)* 

TST IHl) 

BEQ 7S 

TYPE ,TAB 

BR 223. 

TST {.RD* 

TYPt ,MCRUf 

INC 2$ 

CMP 2$i»U5 

BNE IS 

CLR SHURTHPT 

MALT 



UP SHORT REPORT DON'T TYPE TRACK ACCESS OR ERRO 

ITYPE FORMAT OF ERROR PRINT OUT 

ITRACK ADORESS COUNTER 

ISET UP AUORESS OF TRaCK ACCESSED 

lAOQRESS OF HEAD MOVEMENT COUNTER 

JUNIT ERROR PER THAtK COUNTER 

rUNiT 1 ERROR PER TRACK COUNTER 

lAnJUST FOR ADDRESS OF NEXT COUNTER 

IHAS THIS TRACK SEEN ACCESSED 

lYES, PRINT OUT THE COUNTERS 

ITEST UPPER WORD OF ACCESS COUNTER 

ITHIS TRACK HAS NOT BEEN USED, ADJUST 
IREGISTERS TO POINT TO NEXT TRACK COUNTERS 

JTEST FOR LAST TRACK 

JTYPE TRACK NUMBER 

;THIS LOCATION USeU AS TRACK aDDR COUNTER 

;type track accesseo count 



HYPE HfcAO MOVED TO COUNT 



;ARE THgRt ANY UNIT ifl fcRRORS 
;N0, CHECK UNIT I 
?TYPE UNIT ERRORS 



JARt THtRE ANY UNIT I ERRORS 
INOrGO ADJUST POINTERS 



JTYPE UNIT 1 ERRORS 



?G0 TU NEXT TRACK 

JNO ERRORS, ADJUST RtG.FUR NEXT COUNTER 
;ARt TM£Rfc ANY UNIT 1 ERRORS 

,'no,go to next track 
;yes,type tar for placement 

;G0 type THE NUMBtR 

JNO ERRORS, ADJUST REG, FOR NEXT COUNTER 



;haVE all TRACK ERRORS BEEN TYPED 

;no,type the next one 
;set up fur long report 

>YEb DONE 
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3305 

3306 022514 

3307 022516 
3308 

3309 



SMORTRPTI 
ZEROJ 



MAINUEC-U-OZRXA-E HACVii e7i7i2) £0»'SEP«76 15!«b PAlit 63 
OZRXAEsPlI CROSS WEFtHtNCt TABLE -=- USER SYMBOLS 



ADJSUM 


00565b 


4EWR8 


D2i3l6 


ASTAT 


010070 


BAOBYT 


006436 


8ERRS 


022072 


BIT0 « 


i 000001 


8IT0(fl « 


Wk?300l 


BIT01 « 


B00002 


Qiri?i s 


» 000004 


BIT03 1 


000010 


BITa« J 


000020 


8IT05 8 


000043 


81T0b « 


000100 


BIT07 . 


' 000200 


BIT0B ' 


' i?00400 


8IT0"? « 


t 001000 


Bin 


J P00002 


BITlia s 


» k]02000 


BITll 8 


» 004000 


8IT12 ' 


« 010000 


BITii s 


« ^20000 


BlTia 


» 040000 


8IT|5 


» 100000 


81T2 


» ^00004 


8IT3 


« 000010 


BIT« 


« (000020 


BITS 


s 000040 


aiTb 


» 300100 


BIT? 


> 000200 


8IT8 


z 300400 


BITq 


« 001000 


BPTVtC 


s 00B014 


8R0NP& 


010360 


BRONTE 


uw30ia 


BRUfiTR 


^11320 


BSTAF 


fl0072 


BUFAUR 


016604 


8YTECN 


306434 


CHARCT 


311142 


CK8YTE 


305626 


CKSUf^ 


W05746 


CKSWH 


« 104405 


cQMMwn 


L-ki4022 


CONTl 


;?04366 


CONT10 


005400 


CONTU 


30527b 


CDNTU 


b02542 


CUNTU 


203310 


CONTH 


.^03650 


C0NT15 


004654 


CONTib 


005000 


C0NT17 


?05313 


C0NT2 


0ic'4436 


CONT20 


"06202 


C0NT21 


007244 



750 


1160 


1177# 














3061 


3099(» 
















822 


979 


986 


1061 


llli 


1459* 


1462 


1465 


1579 


1170* 


1171 


1172 


1223 


1284# 










3166 


3210# 
















138« 


966 
















i2a» 


138 
















127# 


137 
















126» 


136 
















125» 


135 
















124« 


134 
















123# 


133 
















122» 


132 
















121« 


131 
















120» 


130 
















119# 


129 
















137» 


822 


979 














UBff 


















ll7tf 


















Ub» 


















115# 


















114« 


1768 


1602 














lli» 


520 


1152 


1594 












136» 


488 


bl5 


1462 












135» 


















134* 


880 


1521 


1555 


1582 


3041 








13i» 


















132# 


1081 


1113 


1779 


1784 


1790 








131» 


498 


1159 


1218 


156/ 










13M» 


1091 


lUfl 


1197 


i4Hb 


1816 








12'»« 


804 


1079 


l-?80 


13B2 


1384 








145)» 


















1651* 


1659* 


1661» 














711* 


718* 


719« 














1893* 


1900* 


1903» 














6be 


1495* 


1494 


14 96 


I5tt0<» 


1608* 


1617 






1177* 


1176* 


1182* 


1 165* 


118b 


1660 


1756 


29b5*( 




753* 


7o0« 


1157* 


1174* 


1219 


1236* 


1283# 


1399 


1409 


706* 


1811 


1814* 


1815* 


1832* 


1848tt 








1170# 


















1 Ibl* 


1171* 


1179* 


1180* 


1181* 


1182 


1183* 


1184* 


1185 


654 


771 


777 


84a 


a-iV 


1005 


1010 


1031 


1036 


119«3 


1232 


1244 


1262 


1444 


1449 


1470 


1479 


1503 


809 


86b« 


9a4 














951 


96Hl» 
















1060 


11139 
















1069 


1094# 


1122 














oa7 


651» 
















779 


761S 
















8S1 


853» 
















lfcll2 


1014« 
















IH36 


1040» 
















1096 


1098i» 
















961 


970» 
















1234 


1236» 
















1451 


1453# 

















1189» 1252 
106irf 1067 
1822 2489» 
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C0NT22 


W11070 


C0NT5 


306412 


C0NT4 


003276 


C0NT5 


023336 


C0NT6 


005112 


C0NT7 


035076 


CR » 


C.00015 


CRCPAD 


017050 


CNCEK 


P04560 


CRCLUG 


^17044 


cretry 


017020 


CRLF a 


000200 


DATABy 


010416 


oatack 


004126 


DATACR 


C-'04732 


OATAfcR 


006000 


DATALO 


017064 


DATARE 


017012 


DATA0 


010422 


DATAl 


010434 


P8LLF 


315240 


DBLSP 


015047 


DDCHK 


Cjk55204 


POERR 


005260 


DDISP s 


177570 


00M|5 


017070 


DORETR 


2-17010 


OELUNI 


010074 


D15PLA 


(?.01216 


DISPRE 


BO0174 


DONE 


010706 


DONEBIa 


00Q040 


DONECK 


007122 


DRVSWp 


006544 


ORYl 


001614 


DSWR 8 


177570 


OTESTP 


001212 


O01OAD 


014643 


EBIE a 


000103 


EMPBUF 


B05536 


EMPDUN 


006212 


EMPER 


005750 


EMPFLA 


005622 


EMTVECa 


800030 


ERCNTR 


006442 


ERCOPE 


017132 


EROuMp 


021062 


ERRVEC" 


000004 


ERWRT 


004124 


EXIT 


006432 


FBIE s 


000101 


FIUlBu 


003136 


FILLDO 


003372 


FILLER 


003214 



1824 


1833» 






















1243 


1276» 






















773 


777« 






















762 


785 


7«7« 




















1050 


10b0# 






















1057# 


1075 






















53« 


2174 


2184 




















2980# 
























987 


995# 






















e;976« 
























937* 


1016* 


2964« 




















54» 


2145 


2184 




















1671# 


1680* 


1690* 


1699* 


17(09* 


1717* 


1726* 


1728* 


1741* 


1750* 


1754 


1755 


90b» 


938* 


998* 


1206 


1239 
















997 


101C51 


1028« 




















1173 


1197# 






















2966» 
























934* 


1265* 


2961# 




















1662 


1680« 






















1663 


1690» 






















615 


788 


862 


956 


9bb 


1022 


1054 


1072 


1106 


1272 


1586 


1593 275fc<« 


3053 


3069 


3073 


3096 


3134 


3215 


3248 












587 


605 


610 


1222 


1226 


1554 


1565 


1571 


2709« 


3068 


3105 


3113 3122 


3130 


3164 


3169 


3197 


3202 


3277 


3267 












970 


1079» 






















1M91« 


1124 






















a0« 


346 






















2988# 
























658* 


671* 


933* 


1100* 


2960# 
















793 


1536 


1582# 




















346« 


448* 






















190« 


446 






















1800« 


16^8 






















161» 


1405 


1426 


1467 


















487 


510 


660 


810 


945 


1422# 


1488 


1524 


1603 








725 


I330l» 






















503 


509» 


514 


523 


















y9# 


345 






















344# 


499 


501 


504 


540 


542 


547 


804 


1079 


1360 


1362* 


1384* 


535 


2682» 






















163* 


1167 






















999 


1154«» 


1194 


1?68 


1279 
















1162 


1239# 






















1163 


1191» 






















1168« 


1175 


1237 




















ia&» 
























1000 


1158* 


1198* 


1204 


1242 


1248 


1S66» 












1499 


3007» 


3218 




















215 


1598 


3052# 




















141« 
























709* 


813 


905» 


1065* 


















1156 


1277 


ie6i« 




















162# 


757 






















750* 


766 


786 




















751 


800# 






















752 


763« 
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FRLFL 


0@iir6 


FIRST 


001102 


FLDATa 


010^44 


FLO&Tl 


0iiS06 


FUNCTI 


004120 


GETP&T 


010312 


GETsec 


012316 


GETTKA 


01125^ 


GETUNI 


01061a 


GNS 8 


*»^s*^ 


Goooey 


006440 


GTSWH s 


104404 


HAROSK 


003676 


HCNTRi 


007200 


HCNTWa 


007202 


HCRCBA 


917110 


HCRCLO 


01T104 


HOATAt. 


017124 


HDDLOG 


317133 


HOHOVE 


01766E 


HERE 


011140 


HLTi0 


004652 


HLTil 


004730 


HLTi^ 


004776 


HUiS 


005306 


HLTH 


006200 


HLTi5 


007242 


HLTlfe 


011062 


HLTi? 


022512 


riLT20 


007176 


HI.T21 


307120 


HLT3 


002662 


HLTa 


002132 


HLT5 


002534 


HI.T6 


003306 


HLT7 


S03b4b 


HOME 


302550 


HPARLO 


31702b 


HRDUOG 


017114 


HSEKLO 


fl7l00 


riT s 


0000U 


HwRTUO 


017120 


ICOND 


a02«52 


ID 8 


n0i201 


IDCQMP 


U12042 


IONE?(T 


£!11552 


iNiTse 


012216 


INITTR 


1 11 4 4 


INTER 


017^34 


iNTLtA 


312312 


INfStR 


^07250 


INTVfeC 


001204 


lOTV^Cs 


P00020 


LAST 8 


001203 


UASTTR 


011722 


LF a 


S00012 



TS8# 


7fei 
















g46# 


247 


S9S 


600 


602 


607 


617 


625« 


2086 2088' 


1664 


lfe99# 
















1665 


1717$ 
















003^ 


806« 


892^ 


893 


90i# 


941* 


1514 


1521 


1582 


736 


915 


1135 


1295 


1312 


1331 


1358 


165H 


1836 


747 


932 


2105« 














739 


918 


1138 


1298 


un 


1334 


1364 


1372 


1S92# 


738 


917 


U37 


1297 


1314 


1333 


1337 


1363 


1779# 


2462 


2483 


2484 


2485 


24^7 


2489 


2490 


2491 


2492 2493 


1227* 


1229 


12859 














4S4 


2487« 
















854 


856 


859* 














1392* 


1401S! 


1415* 


1424* 


14il3«r 


1438« 


1809* 


1837* 




|425«- 


1431* 


1432 


1439)* 












2996S 


















2994# 


















3Mt^2# 


















3k304# 


















1984 


3023» 


3254 














1840 


18461^ 
















1013s 


















1026# 


















i039# 


















i097« 


















1235# 


















i«52i 


















1831« 


















3i04# 


















1435# 


















14|8# 


















fe74# 


















570» 


















b49g 


















780fg 


















es2# 


















493 


654» 


857 














5b5t 


787* 


29701* 


31W8 


311M 










2998s 


















2992^ 


















51s 


2i«3 


2184 














3^*00^ 


















fe35» 


705 


3062 














2458 


577 


560 


589 


185H* 


1862 


1938 


1973 


1995 1998* 


20a7# 


2050 
















1974? 


1973S! 
















Tab 


931 


2K86S 














737 


916 


1136 


1296 


1313 


1332 


1362 


1371 


1«55» 


1443* 


29738 


3125 


3127 












2097a 


2102# 


2109 


2110* 












flfe0 


1453 


J«59i» 














268!* 


459 


463 














ia68 


















247# 


597 


602 


612 


2089ft 


2090 


2106 






2W1W 


20i3# 
















52U 


2178 


2I0« 
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LOAD 


010564 


1681 


1704 


1727 


1751 


I7i4# 














LOGICA 


211130 


164 


18428 




















HABELL 


015061 


1821 


2717» 




















MASTAT 


015210 


1610 


2744# 




















MBAOCR 


015644 


1008 


1023 


2822* 


3147 


3181 














M8STAT 


y 15224 


1616 


2747# 




















MCOOtS 


016172 


dBQ6M 


3216 




















MCOL^U 


014616 


1217 


2677» 




















MCRC 


015736 


1034 


2838^ 


3U8 


3182 
















MCRLI^ 


015052 


563 


568 


631 


635 


645 


/76 


792 


874 959 969 


10ia9 


1024 


1035 






1057 


1093 


1109 


nil 


121i 


1215 


1231 


1257 1275 1448 


ia74 


14B3 


1506 






1512 


1519 


1535 


1609 


1621 


1813 


1825 


1830 «;711# 3079 


3099 


31M7 


il lb 






3124 


3132 


3139 


3173 


317b 


3207 


3239 


3299 








MDDER 


P15615 


1108 


2815« 


3177 


















HCDMIS 


014506 


1090 


2656« 


3143 


















HDELET 


015126 


1585 


1592 


2730# 


















MDERHD 


014527 


1214 


127« 


2661# 


314« 


31/8 














MDUHP 


316055 


2ebl# 


3060 




















MEMPTV 


315402 


1192 


1193 


2777s 


















HEOP 


015055 


i82M 


2713» 




















MEPCT 


015333 


1247 


2768# 




















MEREUP 


P15057 


1818 


2715# 




















MERHtA 


01506S 


1507 


2719« 




















MERS 


016067 


1254 


2864# 


3138 


















MFXL 


015366 


764 


765 


2774# 


















MFIRST 


015520 


606 


2798# 




















HGOOO 


016322 


1256 


2908« 




















MHALTl 


315724 


1025 


2835# 




















HHALT3 


0S571S 


673 


2832^ 




















HHALT4 


'91S732 


569 


2829# 




















MHUNE 


015432 


1417 


1434 


2784<* 


















MICON 


015417 


636 


2781# 




















MID 


015514 


568 


2796# 




















MINITI 


015555 


490 


2804# 




















MINIT2 


015567 


S17 


2810» 




















MiNTfcR 


015260 


1447 


2758# 


3131 


















MINTVE 


0151S0 


482 


2734# 




















MLAST 


015527 


611 


2801# 




















MNOORy 


015016 


648 


1534 


2702# 


















MNOFUA 


Q16034 


1462 


2857# 


3123 


















MNON& 


0163U 


290S# 


3213 


3247 


















MNONS? 


015446 


630 


aT87# 




















MNOPAS 


016125 


2874# 


3072 




















MOD 


015510 


383 


2794# 




















MPAR 


016017 


S62 


567 


775 


791 


2853# 


3106 


3115 










MPASS 


016142 


iS08 


1826 


2878^ 


3075 
















HPAT 


015244 


1S60 


2752# 




















HPRES 


014S67 


670 


2670» 




















msead 


015674 


fSS 


982 


903 


990 


991 


1056 


2827» 


3087 3146 3160 








MREC 


01562? 


957 


967 


2618# 


















MRE3TA 


016111 


as70# 


3065 




















MREV 


016554 


441 


2943# 


3061 


















MR8CS 


015167 


472 


555 


1513 


2738# 
















MR3C08 


015177 


4T7 


2741# 




















MRMII 


016344 


1340 


29141? 




















MSEC? 


014604 


1S49 


2674# 
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MSEEt^ 


015775 


MStQ 


aisasa 


MSHQRT 


0160T6 


MSLASH 


016165 


M5UH 


016337 


MTtST 


BlSa50 


MTKLOG 


016223 


MTRK 


0ia555 


MUKNIN 


'315312 


MUNn0 


015106 


HUNin 


P15116 


MUNREC 


2115755 


MUNxOD 


?lfla62 


MWRITE 


J16010 


MwRTEN 


31615a 


nEwtkk 


011562 


NEXTRO 


C^tiUSS 


NOERLO 


Z.17030 


NOERTY 


006170 


nointe 


00720a 


NOPRNT 


007502 


NOSEL 


e0i67b 


00 


£!!1200 


QDCOMP 


C512062 


ODNEXT 


S120I2 


0D2BIG 


ei6363 


ONtKiKT 


903130 


OPCOND 


^•01702 


OPEN » 


' U0P^00 


PARLDG 


C1702<l 


PARTES 


303244 


PASCNT 


r210a2 


PAT 


fi0«20 


PATGEN 


010426 


PAT125 


010514 


PAT3la 


210534 


PC a 


|%R00007 



8b9 


2847# 


3149 


3183 




















1572 


2756» 
























2867# 


3057 
























2e84t 


3066 


3092 






















1251 


2910S. 
























1566 


2754» 
























2894* 


3251 
























1545 


26660 
























ia73 


276a« 
























t)39 


1557 


1584 


272a» 


3135 


















642 


1559 


1591 


2727# 


3l3b 


















5b6 


789 


eb3 


1055 


1073 


1107 


1273 


2e43# 


3114 


3203 








U23 


2bSl» 


31«2 






















825 


828 


836 


837 


847 


864 


968 


1074 


2850# 


3145 


3179 






2881# 


3085 
























1^28 


1931 


1942 


1944 


1972 


1974 


1961# 


2000 


2005 


2016 


2032 


2034 


2058 


^72 


974* 


993 


1059 


1112 


















14786 


2971# 


3117 


3119 




















1201 


1205 


I232fe 






















811 


9a6 


1443# 






















}«95 
500 
2U4S 


1503« 
523» 
245 
























575 


580 


584 


593 


622* 


1855* 


1856 


1859* 


1860 


1864 


1868* 


l'*24« 


1927 


19«0* 


1951 


t9t33* 


i9be* 


1969 


1971 


2001 


2003* 


2015 


2023 


2025* 


2026 


2033 


2044* 






















?0«B 


2051» 


2054 






















2029 


«?033» 
























821 


2918K 
























749s 


831 


858 


1067 




















5B2 


505 


5d7 


524« 




















170tf 


58b 


591 


609 


bia 


774 


790 


873 


1221 


1250 


1511 


1548 


1553 


1829 


2638 


3068 


3078 


3l^« 


3112 


3121 


3129 


3163 


3168 


3172 


3196 


3201 


3208 


3228 


32b7 


3283 


3290 


















ab« 


5544 


?70* 


29b9i» 


3100 


3102 
















787 


770» 


828 


985 


ll9b 


















Uob 


1509 


1810* 


1827 


3«39!» 


3070 


3076 














547* 


548* 


5a9ft 


550* 


551* 


1^61 


1653 


1655* 


1656 


I672i» 


1834 






Ibrtls 


1682 


1691 






















1686 


I72b# 
























lbb7 


174U 
























72# 


487* 


493* 


503* 


«?10* 


513* 


521* 


523* 


5b4* 


582* 


6i34* 


619* 


633* 


ba4« 


651* 


652* 


6b0* 


683* 


fab7* 


677* 


705* 


736* 


737* 


738* 


739* 


740* 


7a3* 


7a6* 


747* 


750* 


7'3e* 


809* 


810* 


H17* 


838* 


841* 


843* 


848* 


857* 


8b0« 


865* 


867* 


875* 


884* 


894* 


89b* 


901* 


915* 


916* 


917* 


918* 


919* 


9<J0« 


9c;3« 


931* 


932* 


944* 


945* 


953* 


963* 


970* 


973* 


976* 


992* 


995* 


999* 


1003* 


1020* 


1029* 


lM4b* 


1052* 


1069* 


IP84« 


10tt6* 


1092* 


1104* 


1110* 


1116* 


IU9* 


1125* 


1135* 


1136* 


1137* 


1138* 


1139* 


1140* 


1143* 


1153* 


llb0* 


Ubft* 


1187* 


12lb* 


1241* 


1259* 


1261* 


l?b/* 


1270* 


1278* 


1281* 


1295* 


1296* 


1297* 


1298* 


1299* 


1302* 


1312* 


1313* 


1314* 


13lb* 


1316* 


1319* 


1331* 


1332* 


1333* 


1334* 


1335* 


1336* 


1337* 


1338* 


1339* 


1342* 


1358* 


1362* 


1363* 


1364* 


1365* 


1366* 


1371* 


1372* 


1373* 


1378* 


1398* 


1429* 


1453* 


1477* 


1488* 


1491* 


1518* 


152'^* 


1524* 


1530* 


1536* 


1538* 


lb77« 


1603* 


160b* 


1622* 


1681* 


1704* 


1727* 


1749* 


1751* 


1758* 


1760* 


1785* 


1792* 


lbsr5* 


1808* 


1836* 


1842* 


18«*b* 


1869* 


1987* 


2045* 


2ia7b# 


2098* 


2111* 


2152* 


2159* 


2lb6* 


2180* 


2182* 


2371* 


253W 


2552* 


2555* 


2592* 


2597* 


2641* 


2646* 


2647* 


3045* 


30h2* 


5090* 


3091* 


3094* 


309b* 


3270* 


3271* 


3275* 


3276* 










7bbft 


76b» 


827* 


98«* 


11«^4* 
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58# 
152*. 

2052 2055» 

b76* 871 1892* 1914» 1925 1969 2028 2055 

749* 783* 784 800* 935* 29fe3» 

75» 

76» 

77i» 

78* 

79ff IbBU 754 

80ff 

dl» 

82» 169» 438 7kil 1393 

55» 56 

560 

7b4* 774i» 825* 982* 1192* 

785* 790» 826* 983* ll'#3* 

147» 2498* 2499* 2508* 2514* 2526* 2527* 

494* 5b0* b57* i486* 29b2# 

lbb8 1749» 1752 

1749 2045 20b0l» 

1750 2046* 2047 2049* 2051 2053* 2055 2057 
4b2* 2061 2067* 2072 2078* 
483* 2062 2069 2074* 2079# 
710* 904# 914* 1049 1134* 1330* 1361* 1369* 

723 1295# 
2430 2490B 

942* 943* 30359 3093 

667 1601» 

939 950# 
lb0» 1487 1602 

940 978« 
165Ji> 941 

249l# 
2982# 

724 1312# 

468 707* 950 955* 1042* 1048* 2958# 

158# 1523 

159« 509 1526 

920 931» 1153 1316 

1140 }152«» 1299 1336 1339 1366 1373 

lb7# 659 

818 938# 984 969 1018 1044 1102 1267 

2493!l» 2596 

214 7m» 1542 2531 

704* 3038« 3063 3066 

142# 

1082 1114 1125» 

801« 627 

2627# 2647 3091 3095 3271 3276 



PIRQ 8 


177772 


PIRQVEs 


^00240 


PRESCH 


yi2102 


PHESTP 


C111362 


PRETRY 


717016 


PR0 » 


000300 


PRl 8 


00^040 


PR2 8 


f)00ia0 


PH3 a 


000140 


PR4 a 


<^;^0200 


PR5 a 


000240 


PR6 s 


030300 


PR7 8 


n^-^saa 


PS » 


17777b 


PSW 8 


177776 


PTYPl 


003262 


PTYP2 


003352 


PlAiRyECa 


*)e0024 


P2RETR 


017014 


RANpAT 


010544 


RANGtN 


012122 


9ANUM 


012214 


RANI 


«12210 


RAN2 


.112212 


ROAFTi^ 


004122 


RDCHK 


306444 


ROCHR ■ 


104406 


ROCNTR 


021034 


RDCOOE 


010200 


RDDQNE 


004316 


RDER » 


Z00017 


RDERR 


004460 


RDIE = 


000107 


RDLIN a 


104407 


RDLOG 


017054 


ROONLY 


006504 


RDRETR 


017004 


RD0STA8 


600013 


RDlSTAa 


000033 


READ 


004200 


READCH 


005526 


RECAL a 


040001 


REREAD 


004246 


RESREGa 


1044U 


RESTAR 


002700 


RESTCN 


«?21040 


HESveCB 


000010 


RETURN 


005454 


REWRIT 


003400 


RTJUST 


014376 


RTN 


032676 


RXCS 


001206 


RXOB 


fc'31210 


RXERRO 


827404 



290» 473 491 509* 556 659* 665 757* 893* 1167* 1396 1405 1426 

1460 1467 1487* 1523* 1526* 1602* 

291i» 478 488 496 511 515 518 661 7S9* 895* 897* U70 1459 

1489 1493 1528 1532 1601 1604 1608 

1461 1481 1465# 



DIRgAiaPlI CROSS ntFtHt^tt TABLE « 



K0 ^%00@000 






s?3 s%00 



R4 s%00000a 



R6 s 


'%000006 


R7 s%000007 


SAVREGs 


s 10«ai0 


SAa00 


031520 


SECCNT 


B12506 


SEEKtR 


003576 


SEKI.UG 


ei70«0 


SEKRTy 


003672 


SEKTYP 


0a3?3fe 


SEQS^y 


337012 


SEQUtN 


011370 


SEQl 


311372 


sEoa 


t7ilH26 


SEQS 


esH60 


SEQa 


eii524 


SEQ5 


JUfel0 


SE06 


^11742 


SEQ7 


312022 


SGLOEC 


Slfl^^fe 


SHORTR 


eaasu 


SP s 


%y00006 



l«6« 


1S^0# 
























2065* 


759 

2066* 


U7i 
2Pfe7 


ilSfes 
20fe8» 


13^7 

2069* 


1228* 

2070* 


1956* 
2071* 


19b7* 

2072ft 


1958* 

2073* 


2060* 
2374 


2061* 
207S 


2062* 
2135 


2063« 
2136* 
2525* 
3217* 


an? 

2572^ 
3219 


2573 

322«* 


2288 

2591* 

3231 


2313* 
2595* 
3240* 


24&b 

262/ 


2467* 
2628* 


2468 
2629 


2469* 

2630 


2470* 

2632 


2471* 

2634* 


2472* 
2636* 


2500 
2639* 


&a# 


971 


996 


1152* 


1159* 


1208 


1211 


1218* 


1280* 


2289 


2312* 


2501 


2524* 


257iji» 


2560* 


2586* 


31S0* 


3153 


3155 


3157 


3161 


3165 


3166 


3184* 


3187 


3189 
3294 


3191 
3298 


319a 


3198 


3199 


32i8« 


3222 


3226 


3241 


3256* 


3264 


3264 


3288 


feSf 
2575* 

3235 


2581* 


628 

2S82ft 

3255^ 


&32« 
2587s 

32b3 


ITiai* 
2588* 
3?79 


1703* 
3140* 
3281 


1706 

3160* 

3293 


2290 
3210 


2311* 
3214* 


2502 
3231* 


2523* 
3232* 


2571* 
3233* 


2574 
3234* 


I0k3a* 
1103* 
22«2s 


a59«> 

1019* 


460* 
102U 


461^ 

1028* 


840* 
1030* 


842>^ 

1045* 


859* 
1047* 


861* 

1051* 


952* 
1053* 


954* 

1068* 


962* 
1070* 


964* 
1083* 


1002* 
1085* 


1105a 
22a5i» 


IU5* 
2250* 


in7« 

2251* 


1258ft 
2252 


1260* 
2261* 


1269* 
2291 


1271* 
2310* 


1422* 
2426 


1426 
2427* 


2226 
2428 


2235* 
2431* 


2241* 
2432 


2^36 
3273« 


2438 
3274 


idud* 


2442* 


25ifli 


2S22* 


2579* 


2564* 


2590* 


2591 


3343* 


3254* 


3262* 


t7S 

2292 

fe8# 


715* 
i899« 
2309^ 


7lfe« 

1900 
2504 
465* 


717* 
2227 

2521* 
466 


TIB 
2229a 
25/ y* 

4b8* 


1656* 
2230* 
2SS« 
469« 


1657ft 

2231* 
2586 

470 


1658* 
2232 
2588 
585* 


1659 

2233* 

3253* 

590* 


1660* 

2247 

3257* 

608* 


1755* 
2249* 
3258 
613* 


1756 
2257* 

3260 
872* 


1897* 
2260* 
3269 
877* 


878* 
1^197^ 


879* 
H98ii 


862* 
1499* 


883* 

1502* 


886* 

1510* 


887* 
1547* 


888* 
1552* 


869* 
1828* 


890* 
1839* 


891* 
1942 


1220* 
1981* 


1249* 
1982* 


1496* 
1983* 


1984ft 


1985* 


1966* 


2228 


iSSUi: 


2236* 


2238* 


2239* 


2240* 


2241 


2259* 


2293 


23k]8* 


2^05 


2520t 


2578* 


2182 


2589 


2645 


2648* 


3067* 


3077* 


3103* 


3111* 


3120* 


3128* 


31b2* 


31b7* 


3195* 


3200* 


3227s» 


3266* 


3282* 


3?e9is. 










69# 


71 
























70# 


72 
























2tf92® 


2570 
























213 


a35# 


571 


650 


fe7b 


















«15* 


97«* 


U54 


1276* 


209W* 


2091* 


2092* 


2093* 


2100^ 










838 


8«0# 


992 






















2976g 


























831* 


858^ 


9a9* 






















648 


8b5 


869« 






















1359* 


1370 


1387« 






















5a0* 


541* 


1359 


1360* 


13^0* 


1573 


1B94 


189b* 


1897 


19} 7s 








19k!a 


192asj 


1960 






















19fe!5 


19383 


1959 






















|90fa 


195i# 
























1907 


19b8l^ 
























19(^8 


1995» 
























196^9 


2023« 
























1910 


20«4# 


2056 






















585 


590 


fees 


613 


872 


122» 


1249 


1510 


1547 


1552 


1826 


2645«' 


3067 


3j377 
lb97* 


3103 
3f^5a 


3U1 

3060 


3120 
3249 


3i2e 


3162 

3306# 


3167 


3195 


3200 


3227 


3266 


3282 


3289 


718 


a37s 


438** 


439* 


446 


473* 


478* 


463* 


556* 


7k5«* 


7m1* 


702* 


751 * 


752* 


75«ft 


755* 


763 


Sv^l* 


802* 


821 


866* 


898* 


899* 


939* 


940* 


978 

14 11 


IMbSa 


10bfe* 


U63« 


1163* 


S lb4* 


1165* 


1191 


1223* 


1229* 


1379* 


1393* 


1394* 


1«12& 


H13* 


1422 


i42B4 


ia?b« 


1514* 


1537* 


1561* 


1567* 


15/3* 


161 1 * 


1617* 


1 759 


180«* 


2135* 


2136 


2137* 


2139 


2140 


2141* 


2143 


2145 


2147 


2153 


2155* 


2157* 


2lb5* 


2169 


2173 


2174 


21^8 


2218* 


2219 


23e(^ 


2221* 


2226* 


2227* 


2228* 


2234 


2259 


2Sb^ 


2261 


2?62* 


2263« 


2288* 


2289* 


2290* 


2291* 


2292* 


2293* 


2294* 


2295* 



HAIMDEC-U-0ZRKA»£ MACYll 27(7323 
02Hx*E,Pll CROSS KEFtNENCt TaBlE - 



20"SEP-7fe l5S4b 
• USER SYMSOUS 



SPACE 


016170 


SRETRY 


017022 


STACK a 


0^1200 


START! 


001412 


STATER 


002046 


STKLMT^ 


177774 


STOP 


010732 


STYpi 


(^03626 


STYpa 


&ifl3720 


SUM 


?10612 


SWHLTi 


Q03636 


SWR 


001214 


SWREG 


300176 


SW0 a 


000001 


SW0@ g 


000001 


SW01 s 


000002 


3W02 a 


000004 


3W03 8 


000010 


SN04 8 


000020 


SW05 8 


000040 


SW06 8 


000100 


SW0? s 


000200 


sw0a » 


000400 


SW09 8 


001000 


SWl a 


000002 


SW10 a 


002000 


swu a 


004000 


swii s 


010000 


SW13 8 


020000 


SW14 a 


040000 


SW15 s 


100000 


swa ^ 


000004 


SM3 8 


000010 


SW4 !i 


000020 


SW5 s 


000040 


SN6 s 


000100 


SW7 8 


000200 


SW8 s 


000400 


SW9 S5 


001000 


S2BI6 


0164S5 


TAB 


015040 


TARGET 


011360 


TBJfVEa 


000014 


TEST 


002140 



2296* 
2332* 
2372 
2404 
2466* 
2521 
2628 
3147* 
3183* 
2866JP 
470 

46# 
4fc8» 
513 

S7(? 
743 
836* 
837* 
1179 
846 
345« 
1011 
1245 
19i# 
il0s 

100# 

99# 

9a# 

97# 

96# 

95# 

94# 

93# 

92* 

91# 

!09# 

90^ 

89^ 

88# 

87i 

86# 

65# 

i08« 

107# 

106« 

i05# 

104# 

103# 

i0a# 
i0i# 

624 
643 
877 

i97l« 
1430 
542* 



2297* 
2333 
2374 
2408* 
2467 
2522 
2639 
3148* 
3185 
3137 
748* 
437 

554» 

923 

847s 
S64# 

1652* 
849# 
436* 

1014 

1263 
447 

110 
109 
108 
107 
106 
105 
104 
103 
102 
101 



761 
1202 

773 
1823 



655 

2930# 

1615 

886 

1973* 

543* 



2304* 
2340* 
2376* 
2409s 
2500* 
2523 
2640* 
3149* 
3192 
3268 
855* 
700 

663 

1143 
990* 
991* 

1754* 

443 
1»32 
1445 

452 



853 

845 



2706# 

897 
1981 



2305* 

2343* 

2377 

2410 

2501* 

2524 

2645* 

3151 

32k34 

3272 

936* 
3052 

1491 

1302 

i7b2« 

«47* 
1037 
145P^ 
2327 



1014 
1006 



3056 
1177 
1999* 



23^6* 

2344* 

2379* 

2413 

25^2* 

2525 

3052* 

315B 

3255* 

3278 

29bb9 



15JW 
1319 



452 

1040 
1471 
23«k3 



1040 
1032 



3059 
1180 
2004* 



2348* 

2380* 

2415 

2503* 

2530* 

3089* 

3170 

3269* 

3286 



1606 
1342 



655 

1061 
1480 



1061 
1088 



3212 
1546 

2009* 



2306 

2349* 

2381* 

2417* 

2504* 

2550 

3093* 

3176* 

3274* 



772 

1088 

1504 



1098 
1121 



3229 
i860* 

2012* 



2309 

2353 

2382* 

2426* 

2505* 

2551* 

3341* 

3177* 



776 

1095 
1823 



1263 

1200 



3246 
1892 
2015* 



2310 

2356* 

2363* 

2431 

2506* 

2553* 

3142* 

3178* 



761 
1098 
2327 



3296 
1913# 

2030* 

715 



231! 

2360 

2396* 

2442 

2507 

2554* 

3143* 

3179* 



845 
U21 
2364* 



1927* 

2033* 



231? 

23b? 

2399* 

2443* 

2515* 

2571 

3144* 

3180* 



850 

1200 
2506 



1930* 
2057* 



2313 

2364 

2402* 

2444* 

2519 

2573* 

3145* 

3181* 



2331* 

23b5s 

2403* 

2445* 

2520 

2627* 

3146* 

3182* 



653 1006 
1?02 1233 
2519* 



DZRXAE.Ptl CROSS «EFfe8£NCfe lABLf - 



50-SEP-7fe lSsa6 PAGfc 7J 
» USER SYMBOLS 



TESTDR 

TESTSE 

TEST? 

TEST7X 

THREt 

TKACC 

TKVEC < 

TPVEC ! 

TRApVEa 0a003<J 

trck &^ia70ia 

TRKCNT 0U356 
rRK£KR 303770 



003726 
006633 

006baa 
{Ua3H 
31T|7« 

000060 
000064 



TSECTO 
rSTLlM 
TSTMSG 
TYPADR 
TYPCOO 

rypi 8 



013310 
S6021<I2 
0i)2a32 
207716 
010250 

I0aa00 



TYPERR 


?06na 


TYPOC 3 


iuaa0i 


TyPON 8 


104403 


TYPOS a 


104402 


TYPSkL 


^'10012 


TYPTKK 


?2?2lb 


UKNINT 


0170 32 


UNITSE 


010704 


UNXDO 


017074 


U0TNK 


Ki20344 


U1L.0G 


221044 



UlTRK ^20576 
WRITE &03U2 
WRTDON f.03462 
WRTEH C03510 
k^RTIt a 000105 



492 


a^tiu 
























r0fe» 


1590 
























726 


1358# 
























Ub0» 


1378 


1383 


1385 




















2095 


2103«« 


2105 






















889 


3020# 


3253 






















150# 


























15U 


























149» 


























758 


894 


896 


U68 


1392# 


















74l9 
1955* 


921* 
1958 


1141* 
1997« 


13M0A 

20U6 


1317* 

2«13 


1340* 
2026* 


1367* 
2027* 


1374* 


1865* 


1866» 


1867* 


1912* 


1954 


843 


877j* 


995 


1086 


1119 


1261 
















144# 


























895 

^7a» 


1176 
651 


1181 


1550 


2094* 


2095* 


210l» 


2105* 


2106 


2108* 


2109* 






bea 


6t^4 


62fl# 






















1092 


1110 


1216 


1518 


154(3# 


















1520 


1610« 
























441 

569 

635 

79a 

959 

11554 

llll 

1257 

15H6 

1557 

lb«9 

2253 

3053 

3086 

3122 

3169 

3229 

3299 


472 

583 

636 

791 

966 

1055 

1123 

12/2 

15vi7 

1559 

1610 

2338 

3056 

3087 

3123 

3171 

3239 


477 

S87 

639 

792 

967 

1056 

1213 

1273 

1S08 

1560 

lbl5 

2339 

3057 

3k588 

3124 

3173 

3246 


482 

588 

642 

847 

968 

1H57 

1214 

1274 

1512 

1565 

1616 

2342 

3059 

3092 

3l3i3 

3i75 

3247 


490 

605 

64i 

862 

9o9 

1072 

1215 

127b 

1513 

1566 

1621 

235b 

3000 

3096 

3131 

3197 

3248 


517 

606 
645 
663 
1008 
1073 
1217 
1417 
1519 
1571 
1813 
2366 
3061 
3099 
3132 
3202 
3251 


535 
610 
648 
864 
1009 
1074 
1222 
1434 
1534 
1572 
1818 
2385 
3065 
3105 
3134 
3203 
3268 


555 
611 
673 
869 
1022 
1090 
1226 
1447 
1535 
1584 
1820 
2434 
3069 
3}06 
3135 
3205 
3272 


562 
615 
774 
870 
1023 
1«93 
1231 
1448 
1540 
1585 
1821 
2437 
3072 
3107 
3136 
3207 
3277 


563 
621 
775 
874 
1024 
1106 
1247 
1473 
1541 
1586 
1825 
2441 
30?3 
3113 
3137 
3212 
327 8 


566 
624 
776 
956 
1025 
1107 
1251 
1474 
1545 
1591 
1826 
24e2# 
3075 
3114 
3138 
3213 
3286 


567 
630 
788 
957 
1034 
1108 
1254 
1482 
1549 
1592 
1830 
2528 
3079 
3115 
3139 
3215 
3267 


568 
631 
789 
958 
1035 
1109 
1256 
1483 
1554 
1593 
2148 
2637 
3085 
3116 
3164 
3216 
3296 


1209 


1212 


1219» 






















2341 


2483» 
























1230 


2485* 
























474 
644 


479 
1558 


484 
15608 


557 


1224 


1515 


1562 


1568 


1574 


U12 


1618 


2484jit 


3236 


3221 


3244# 
























1469* 


2972# 
























495* 
U97* 
17BS 
2990* 


498<r 

1377 
1790* 


506* 
1485* 
1791* 


520* 
1555 
1796* 


52ti 
1587* 

1800 


533* 
lb88 
1602 


637 

1594* 
1616 


640 
1595 
1833* 


646 
1779 

3041 


8dM 
1781 


892 
1763* 


1091* 
1764* 


1118* 
1786 


879 


302fl# 


3255 






















841 
1259 


8b0 
1270 


953 

3a4i» 


963 


10«3 


1020 


1029 


1046 


1052 


i(i69 


l«b4 


1104 


1116 


862 


3031# 


3256 






















740 


746» 


919 


1139 


133b 


1338 


1365 














8kJl 


813# 
























6k:S 


821* 
























164« 


803 

























nJpv^f^:^^"^^^^*-^ ^*^^1^ ^7(7i2) 20.SEP.76 I5:4fe 
DZRXAE^Pii CROSS REFfeRENCt TABLE — USER SYMBOLS 



WRTLOG 


017060 


WRTONL 


^03052 


WRTRO 


^04130 


rtRTSfcK 


^03550 


WTCNTP 


021030 


i^TOOlE' 


' 000115 


WTROCK 


.105456 


WTRETR 


ri7006 


XFRBYT 


003202 


XHOME 


002670 


XIO 


311366 


XOD 


:^11364 


XPATGE 


C10452 


XRDCMK 


306450 


XRDONL 


006510 


XREAD 


W04204 


XRETUR 


011740 


XSTART 


902722 


XWRITE 


002116 


XWRTON 


003056 


XWRTRD 


004140 


XWTRPC 


005466 


XXPATG 


Pi0522 


ZCRC»A 


317046 


ZCRCLO 


017042 


ZDATAL 


(^17062 


ZDDMIS 


017066 


ZERO 


022516 


ZHCRCB 


017106 


ZHCRCL 


017102 


ZHOATA 


017122 


ZHDOLO 


01T126 


ZMROUO 


017U2 


ZHSEKL 


017076 


ZHWRTL 


017116 


ZRDLOG 


017052 


ZSEKLD 


01703b 


ZUNXDD 


017072 


ZWRTLO 


017056 


SAUTOB 


013714 


SCH4RC 


012572 


SCKSWR 


013140 


SCNTLG 


013665 


SCNTLU 


013660 


SCRL^- 


'?l2b0T 


SDS2U 


014202 


SDECVL 


£14362 


SFILLC 


012604 


SFILUS 


012603 


SGTSWR 


013210 


SHD a 


000003 


SILLUP 


014133 


IINTAG 


013715 


iLF 


012610 


SMAIL s 


**«*«!* U 



2984« 
720 
721 
623 
807* 
166# 

708* 
759» 
666 
1861* 
2.^49 
1663* 
1700» 
1296» 
1313« 
932» 
2014 
552 
747« 
737(11 
916» 
1136» 
1727* 
1002 
1028 
1258 
1083 
3141 
1019 
1045 
1269 
1103 
1051 
859 
1068 
952 
840 
1115 
962 
456* 
2150* 
2S27» 
2336 
2355 
2149 
2552 
2572 
2153 
2187# 
2339» 

20 

2498 

2367 

2192« 

452 



736«f 
9i4» 
83H 
608* 
806 
1134» 
9b0 

670 
1862* 

1664* 
1718 
1303 
1320 

975 
2016# 

705# 

819 

744 

924 
1144 
1729 
2979# 
2977» 
2985« 
2987« 
3176 
2995» 
2993» 
3001» 
3003» 
2997# 
2991« 
2999# 

29ai# 

2975J> 
2989* 
2983S 
2335 

2160* 

2489 

2451» 

2450# 

219l» 

2570# 

S618« 

2188# 

2487 
21 
2514 
2457i 
2441 
2137 



b76» 
1665 



2456)» 
2167 



2366 

3090 



2176* 2181# 



2450 
3094 



3270 



2011* 2012 
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DZRXAE.PU CROSS WEFERtNGt TABLE — USER SYMBOLS 



8MNEW 


013703 


SMSWR 


013678 


SNULt 


012608 


SOCNT 


013034 


SOMODE 


013036 


SPOWbR 


014136 


SPWRAO 


0Hia« 


SPWRDN 


1313764 


SPWRMG 


014120 


SPNRUP 


014036 


SOUES 


012606 


SRDCHR 


013422 


SRDOfeC 


**«rft** 


SRDUIN 


013542 


$RO0CT« 


««***« 


SRDSZ 8 


P00010 


SRESRE 


013076 


SRaA 8 


***«*» 


SSAVHE 


013K40 


$SAVR6 


014134 


$8B2D 


014146 


SSETUPs 


000114 


SSTUP 8 


177777 


SSWR a 


160000 


STKB 


01313b 


STKS 


013134 


$TN B 


000001 


STNPWR 


014312 


STPB 


.^12600 


STPFLG 


012605 


$TPS 


012576 


STRAP 


013716 


STRP a 


000012 


STRPAD 


013740 


STTYIN 


013650 


STYPBNa 


****** 


STYPDSs 


****** 


STYPE 


012356 


STYPEC 


012526 


STYPEX 


012574 


STYPOC 


012636 


STYPUN 


fcl2652 


STYPUS 


012612 


S0FILL 


313035 


• s 


022520 



2342 

2339 

2155 

2225* 

2220* 

1541 

2531# 

176 
2S29# 
2308 
2190» 
2J9BU 
2492 
2426» 
2492 
2419# 
2303» 
2494 
22a7* 
2507* 
2550i» 

208ft 
20 
2J19» 
2518» 
20# 
2577 
2173* 
2131 
2171 
180 
2474« 
2471 
2427 
2086 
2486 
213l« 
2152 
2177 

2218* 
2219* 
172* 
2185 
2456 



24S4» 
2452# 
2186# 
2254a 
2224* 
2529 



2474 
2159 
2179 
2463 

2484 
2223* 

174 
2186 
2457 



2267» 

2229 

2536» 



2498# 2526 

2514» 

2385 2434 

2490 



2493 

2492 

2515 

2646 

449 

21» 
2331 
2329 

2578 

2185» 

2169« 

2184« 

2466# 

2483# 

248l« 

2428 



2516* 

2322 

2532 
2348 
2345 



24818 
2445 



2482 
2166 
218?» 

2485 

2233 

175« 
2187 
2458 



2232* 2243* 2269# 



2517* 

2456 



2402 
2369* 



2485» 
2449# 



2268« 
179» 
2188 
2510 



24«]a 

24I0U 



24Batt 24ti9 



iUHtdtt 2a91» 249?» 2493« 



l«i# 
2109 
253a 



186# 
2190 
26ia# 



189# 
2191 
2946» 



209« 
2192 
2955* 



243* 
£193 

3007*' 



719 

2318 
3020» 



1661 
2319 

30i23# 



19{'j3 2184 
2449# 2450 
3028« 303l» 



MAlNUEC-ll-OZRXA-E MACYll 27(732J 20-SEP«7b I5!«fe PAttt 75 
OZRXAE.Pll CROSS REFERENCt TABLE — MACRO NAMES 



COMMEN 


1« 


153« 




























ENOCOM 


1# 


153» 




























ERROR 


47« 






























ESCAPE 


1# 


153» 




























GETPRI 


1# 


153« 




























GETSWR 


1# 


6« 


153«< 


449 
























MUUT 


in 


153» 




























NEWTST 


in 


153«( 




























POP 


i» 


153» 


23'3B 


2519 


2520 






















PUSH 


1« 


153» 


2288 


25i^0 


2506 






















REPORT 


1# 


153» 




























SCOPE 


48# 






























SETPRI 


1« 


153» 




























SETTRA 


2474# 


2483 


2484 


2485 


24a7 


2489 


249k3 


2491 


2492 


2493 












SETUP 


m 


153# 




























SKIP 


1# 


153« 




























SLASH 


l« 


153« 




























SPACE 


153» 






























STARS 


1# 


b» 


153«» 


194 


218 


250 


27kJ 


288 


348 


413 


431 


679 


698 


730 


798 




908 


926 


1129 


1147 


1288 


1306 


1324 


1346 


1388 


1455 


1625 


1647 


1675 


1684 


1693 




1712 


1720 


1735 


1744 


1764 


1777 


1850 


1873 


1890 


1919 


1933 


19a6 


1963 


1976 


1990 




2018 


2038 


2082 


2116 


2195 


2272 


2317 


2322 


2390 


2419 


2460 


2496 


2512 


2541 


2559 




2620 


2950 


3050 


























SWRSU 


1# 


153« 




























TRMTRP 


2474# 






























TYPBIN 


i» 


153# 




























TYPOEC 


1« 


153» 




























TYPNAM 


1« 


153» 




























TYPNUM 


Of 


153# 




























TYPOCS 


it 


153# 


473 


478 


483 


556 


1514 


1561 


1567 


1573 


1611 


1617 


3235 






TYPOCT 


1# 


153# 


2340 


























TYPTXT 


1# 


153» 




























SSESCA 


1# 


153# 




























SSNEWT 


1# 


153# 




























SSSET 


2474# 


2483 


2464 


2485 


2487 


2489 


2490 


2491 


2492 


2493 












SSSKIP 


10 


153# 




























.EQUAT 


1« 


5» 


43 


























,HEADE 


I* 


5» 


10 


























.KTU 


iu 






























.SETUP 


1# 


5# 


208 


























.SWRHI 


U 






























,SACTi 


m 






























,SAPT8 


i» 






























,SAPTH 


i# 






























.SAPTY 


i« 






























,$A5TA 


i» 






























.SCATC 


i# 






























,$CMTA 


i# 






























.SDB2D 


i# 


6# 


2557 


























,SDB20 


i# 






























,SDXV 


19 






























,SEOP 


1# 






























,SERHO 


1# 






























.SERRT 


1# 






























,SMULT 


1# 






























.SPOWE 


1# 


6# 


2494 



























MAINOEC-U-DZRXA-E HACYll 87(712) 20-SeP-76 l5!<4fe PAUC 7b 

OZRX&E.Pli CROSS NtFfeR£NCfe TABLE «« MACRO NAMES 



,$RANO 








.SRDOe 








.SRDOC 








.SREAD 




Stt 


2315 


.sRaAz 








.SSAVE 




bn 


2270 


.$SP20 




6# 


2539 


.SSB20 








,$SCOP 








.SSIZE 








.SSUHR 








.STRAP 




btl 


2«58 


.STYPB 








.STYPD 








.STYPE 




S» 


21l« 


,STYPO 




5« 


2193 


.SflOCA 








.11715 









MAlNPEC-ll-DZRXA-fc HALYll 27(73?) 20-SeP-7fe I5!«b P^bE 78 

OZRXAE.PU CROSS REFfeRENCt TABLE — PERMANENT SYMBOLS 



AOC 


808 . 


891 


943 


1431 


1986 


2587 




















ADO 


807 


8b6 


879 


882 


889 


890 


942 


Hd58 


1066 


1171 


1180 


ubi 


1430 


1476 


1499 




1'537 


1754 


1804 


I9b4 


I9e5 


2053 


?0bl 


20b2 


2072 


2105 


2109 


2141 


2221 


2231 


2356 




23l»5 


2553 


e58b 


2588 


3043 


3257 


32b2 


3273 
















ASL 


717 
3233 


878 
3234 


8b7 


888 


1658 


1899 


1955 


1962 


1983 


2027 


2379 


2380 


2381 


2470 


3232 


ASLS 


n83 






























BCC 
SEO 


1702 


503 


512 


516 


532 


561 


57b 


579 


596 


599 


601 


662 


785 


805 


823 




856 


881 


951 


961 


980 


1017 


10«3 


1064 


1080 


1101 


1114 


1203 


1?07 


12«0 


1243 




1253 


12e>6 


12^7 


1361 


1400 


1408 


142^ 


1483 


1490 


1495 


1529 


16k)5 


1707 


1757 


1817 




I82a 


1840 


1970 


2056 


2144 


2179 


2248 


2336 


2363 


2378 


2631 


3042 


3055 


3064 


3101 




3109 


3118 


3126 


3152 


3186 


3280 


328b 


3295 
















9GE 


670 


1959 


2M52 


2107 
























8GT 


1205 


2255 


2375 


2416 
























BHI 


578 


581 


598 


603 
























BIC 


533 


5a\ 


b43 


551 


1218 


1382 


1551 


1587 


1594 


1783 


1790 


1833 


1855 


1924 


1940 




1953 


1968 


2025 


2044 


20ab 


20b3 


2073 


2245 


2332 


2349 


2376 


241^3 


2409 


2417 




Bice 


711 


1651 


1893 


1998 


2003 






















BIS 


a98 

2590 
718 


520 


1091 


1118 


1152 


1159 


1197 


1384 


1485 


1784 


1791 


1868 


2250 


2251 


2383 


BISB 


892 


1659 


1900 
























BIT 


488 


499 


504 


515 


b55 


661 


772 


781 


804 


822 


845 


853 


860 


979 


986 




1006 


1014 


1032 


1040 


1061 


1079 


108tt 


1098 


1113 


1121 


1200 


1202 


1245 


1263 


1377 




1380 


1426 


1445 


1462 


1465 


1471 


148(9 


1489 


1504 


1521 


1528 


1555 


1604 


1779 


1788 




180? 


1816 


1823 


3041 
























BITB 


5U 


1061 


1405 


14b7 


1582 


2006 


21&7 


















BUE 


2048 






























8L0S 


2429 






























BIT 


215R 


2256 


2373 


2414 


2583 






















BMI 
8NE 


1461 
451 


1533 

453 


1596 
467 


471 


469 


505 


530 


594 


618 


629 


647 


656 


672 


713 


742 




773 


782 


814 


616 


646 


854 


922 


975 


987 


1001 


1007 


1015 


1033 


1041 


1050 




1062 


1082 


1089 


1099 


1122 


1142 


1155 


1173 


1201 


1246 


1264 


1301 


1318 


1341 


1368 




1375 


1378 


1404 


1416 


1433 


1446 


146b 


1468 


1472 


1481 


1505 


1522 


1556 


1583 


1654 




1780 


1789 


1803 


1812 


1835 


1838 


1857 


1895 


1926 


2007 


2014 


2029 


2087 


2138 


2146 




2154 


2168 


2175 


2246 


2328 


2334 


2354 


2361 


2368 


2405 


24U 


2433 


2439 


2518 


2594 




2633 


3071 


3081 


3154 


3156 


3188 


3190 


3211 


3220 


3223 


3245 


3250 


3259 


3261 


3302 


BPL 


492 


497 


502 


519 


525 


638 


641 


666 


779 


851 


972 


997 


1012 


1038 


1096 




1209 


1212 


1234 


1397 


l«5l 


1589 


1762 


1787 


1801 


1939 


1952 


1996 


2002 


2024 


2132 




2172 


2244 


2330 


2346 


2401 


2407 




















BR 


210 


211 


212 


445 


455 


507 


514 


534 


592 


616 


623 


626 


664 


?19 


744 




761 


924 


993 


1075 


1124 


1144 


1175 


1210 


1255 


1303 


1320 


1343 


1383 


1385 


1492 




1525 


1527 


1531 


1558 


1607 


1661 


1682 


1691 


1710 


1718 


1729 


1742 


1752 


1819 


1903 




1928 


1931 


1942 


1944 


19b0 


1972 


1974 


2000 


2005 


2010 


2016 


2032 


2034 


2050 


2054 




2058 


2134 


2151 


2161 


2170 


2177 


dSBS 


2237 


2258 


2357 


2384 


2386 


2412 


2435 


2510 




2534 


2585 


2635 


3058 


3074 


3159 


3174 


3193 


3208 


3221 


3225 


3242 


3265 


3291 


3297 


cue 

CLR 


539 
465 


1705 
495 


2064 
574 


622 


625 


706 


709 


710 


753 


898 


938 


U57 


1158 


U61 


1164 




1280 


1369 


1392 


1409 


1412 


1424 


1652 


1680 


1717 


1809 


1832 


1861 


1863 


206B 


2235 




2343 


2344 


2516 


2579 


3140 


3214 


3252 


3303 
















CURB 
CMP 


506 


1859 


2093 


2150 


2176 


2440 


2595 


















443 


446 


452 


466 


470 


950 


960 


1204 


1399 


1756 


1834 


2327 


2333 


2353 


2360 




2372 


2374 


2404 


2410 


2413 


2413 


2428 


2589 


3219 


3301 












CMPB 


529 


577 


580 


597 


602 


617 


6b8 


1172 


1925 


1969 


2013 


2028 


2047 


2051 


2055 




2106 


2143 


2145 


2153 


2174 


2178 


2335 


2367 


2432 


2430 


2632 











0ZRX«E,P11 CROSS REFERENCE TjaLE -- PERMiNENI SYMBOLS 

CO^B iVlt '"' """ '"' '"' "" 

T '=" '^M m1? ,111 ,lVr ,l\l ,11) ,1^1 ,111 \X '"= '»" "»^ "" '=« 

DECS 215? 2160 a?43 ggSa ^'^^ ^^^^ ^"^i^ ^0^^ ^031 3593 
EMT 417 

""' UM a"3 .?^S sIS^ ,llt "" '" ""^ '^" '"" '"" '"^ M'« i«5 las^ 

^^^ ^^^ 56S 632 TfeJ4 7fe0 770 76? fl^^ a*., 

i033 1047 1053 1070 1065 l|05 lU u'f iJqJ Jpfl , HJl . ^L' ^'® ^'''^'^ ^^^l 

ia43 ia6f i«78 isaa ^m Ji^ a ^ ilr J!? lilt \llt i^**^ ^^^^ ^^^i i«iS 

INC8 |f80 '''' '''' '^'' '^'' ^'^" ^'^' ^"'^ 3300 ' ' '''' '"'' '^'' '''^ '''' 

"' ?bI' n^ in III III til III III Itk r,, 7^3 7aa 7a5 7a. 7.7 

U56 U95 i2i7 laia J9 nfa isaa 1590 159! L'L' L'^lx J'"' '''''' '''' '^'^ 

1668 190^ 195^5 1906 1907 1908 gj HH ^^^^ ^^^^ ^*"=^ ^^^'^ l^^S 1666 I6b7 

"" -' '" r\i nj ^^^ ^1^ ]ii r:s r.i r; ?- -- "■ '" 

S38 8«l 8«3 8«8 857 JfeS Ifs Ijl !^f !^J I'*! ^^^ ^^« Af^'' 810 

.!!! .!!! .'n A^J ^'^ ?'? '5' ^ 9 J ^iS ,!i: .!i! ,?i! 



10^6 1058 1(169 ima 1086 1^,9? U^« lul ulfe , ??g , ??c , ??? ^^"^^ ^^^0 1029 

U^0 1U3 1153 1160 llfcS 1316 11^^ nil 259 \ill if? iJS ^^^^ ^^^^ ^^39 

i297 1298 1399 130? 13|g 33 iliu jH 316 \x^l ftl f.! ^^^^ ^"5 1296 

i336 1337 U36 i3i9 3^2 nSB 3b2 3i3 ^iJ ^H ^fi !f^ ^^^ 123a 1335 

i«53 1488 M9I 1510 I5i3 Ig. ^'f ^^^ ^l |J^ '^^ ?!i f?^^^ 1373 1376 



inr 17^9 irsi 1808 llsl nil Jf; ^f^\^ ll^l l^ 1681 170« 

3062 3067 3077 3090 3091 309^ 309^ 3l«^ tiiT fl^! ! ^^'^ ^^^^ '^*''"» ^^'''^ 

3227 3266 3270 3271 3275 iPll HH HH ^^^^ ^^'^ '^^' ''^'' ''^^^ ^^^S 3200 

«3b 037 «36 439 «a2 «a7 



!^^ «^3 a78 ai3 «9^ ;;. IZ 5al 5'? 556 ^57 ?'' '■''^ ^'^ 

7**a 7«9 751 752 754 

8^^ 631 836 837 840 

"! .'" "« "■ i^Sa i^;:' ^l"» ,Hl Zl ,11', 'II ,!" '" .'" '" 



7at 7ai 7^7 ;^6 Ma n' V.t 111 tS! ^^= "' "' "" "" "^ 
766 saa am 8^^ sji sat llr H, III Hf '" '^^ "' '" '65 

'" ?" '" "« "5 "t IV, ']l a " "' L'i ?.'! ??? 



U6a u2, nil ,:i ;j? !?j: -?» -25 i?2s i^n i^^? 1^; '^" '■" -''^ 

1359 1360 1370 1379 1393 ^94 111 lilt lilt l^nll ^^^^ ^^^^ ^^'^^ ^^^^ 12«>'» 

1523 1526 1546 1550 ILl \H' Ull l^ J^fJ J^f? Iftt "!'J '''' L^^^ 1^14 



1827 1639 8,5 896 el HH i;,; IZ; llil Itll ifl ^"56 166. 1701 1814 

2136 2140 2155 2218 L26 ill? Hel tfjl ffj? 't^ ^^J! '/'' ^^^^ ^^^^ ^13b 



2M0 ai 22 23 2340 af: ai:^ i'H l^ '^'l '^'^ ^^^' ^307 i308 21;; 

2466 2467 ,,U till 2499 "00 H01 till ?lll f'1' ^'^! ^'"^ '"''^ «^«'*« '^'^^S 

2515 2519 2520 2521 2522 2^23 till Utt till HT, ^^05 2506 2507 2508 2514 

2572 2573 2574 2575 lilt 2577 2V« till IHt Ull ll\l ^''' ^"^ "^'^ ^^71 

3076 3089 3093 3102 3110 3119 l\[, \\l\ \Al f?f^ ^^^^ ^*'^^ ^^^^ ^^^^ 3066 

3149 3150 3161 3lb6 3 70 3 76 iWl All \M \lal ^^'"' ^^'^ ^^^^^ ^>'»^ ^148 

3199 3204 3217 3218 3226 3231 3?i5 3253 3^52 \)Xl ^ <i'f '^" ''^' '''*' 

456 584 589 fe07 612 759 l/, til ^llt ^^?^ ^^^6 3269 33/4 3281 3288 

iie5 1227 1459 1493 1601 lUl iltt lUl " Ml .IJl '''' ^^'^ ^^'^ ^^'^ ll«2 

18M 1892 1927 941 97 9^3 lilt llll lilt IIV. ^'^^ ^^^^ 1«^« 1«^« 1862 

209« 2108 2137 2165 21 3 22 ^ Ull atll pltl IV.l ll^l '"' '"'^ ^^^^ ^^''^ 

2348 2402 2408 2431 2436 24^9 2591 till 2^36 ^ '^' '"^ '^'^ "^^^^ ^^^^ 



NEli 2230 
NEGB usa 



n5pv?i^:!^"°^^'*"^ ''^^'^l 27(732) 20-SEP-76 15146 PAUt 
OZRX^E«Pli CkOSS KETERENCfc TABLE -« PERMANENT S¥H»OLS 



NOP 


1843 


1844 


1845 


























RESET 


435 


1841 




























ROL 
ROLB 


548 
1709 


549 


2065 


2056 


2236 


2238 


2239 


2240 


2242 














RQR 


544 


545 


546 


1497 


1498 


2070 


2071 


















RTI 


440 

253? 


701 


756 


900 


ilfcfe 


1395 


1414 


1475 


2142 


2264 


2298 


2314 


237R 


<i4l8 


2446 


RTS 
SBC 


521 
1241 
1987 

2581 


564 
1281 
2076 


619 

1398 
2098 


633 
1429 
2Ul 


652 
1477 

2162 


677 

1538 
2472 


817 
157/ 

25b5 


867 
1622 
2597 


875 
1758 
2641 


884 
1760 
2648 


9p'l 
1765 
3045 


9/3 
1792 


97b 

1805 


1125 
1846 


1187 
1869 


SEC 


1700 


1708 




























SUB 
SWA6 


1866 

550 


1957 


1958 


2049 


2091 


2095 


250W 


2582 
















TRAP 
TST 

TST8 
.ASCJI 


2474 

450 

621 

1242 

2086 

3125 

3241 

496 

1995 

2190 


2483 

491 

850 

1411 

2139 

3151 

3244 

518 

2001 

2191 


2484 

501 

971 

1432 

2147 

3153 

3249 

524 

2682 


2485 

531 

978 

1450 

21b9 

3155 

3258 

593 

2131 

2689 


2487 

575 

996 

1460 

2247 

3157 

3260 

600 

2171 

2918 


2489 
595 
1000 
1494 
2362 
3158 
3263 
637 
2329 
2930 


2490 
628 
10U 
1588 
23/ y 
31db 
3264 
12ld8 
234b 


2491 
640 
1037 
1653 
2468 
3185 
3279 
1211 
2400. 


2492 
646 
1049 
1706 
3054 
3167 
3284 
1252 
2406 


2493 
665 
1095 
1759 
3063 
3169 
3293 
1396 
2630 


712 
11^4 
1766 
3070 
3191 
3294 
1532 


763 
1191 
1800 
306H 
3192 
3298 
1595 


778 

12Mfe 
1811 
3100 
3196 

1761 


784 
1233 
1856 
3108 
3210 

1938 


813 
1239 
1894 
3117 
3222 

1951 


,ASC1Z 


2192 

2706 
2T50 
2801 
2857 
29n 


2450 
2709 
2752 
2804 
2861 
2925 


2451 
2711 
2754 
2810 
2864 
2937 


2452 
2713 
2756 
2815 
2867 
2943 


2454 
2715 
2758 
2818 
2870 


2536 
2717 
2764 
2822 
2874 


2651 
2719 
2768 
S&if 
2878 


2656 
2/24 
2774 
2829 
2881 


2661 
2727 
2777 
2832 
2884 


2666 
2730 
2781 
2835 
2886 


2670 
2734 
2784 
2838 
2886 


2674 
2738 
2767 
2843 
2894 


2677 

2741 
2794 
2847 
2905 


2697 
2744 
2796 
2850 
2908 


2702 
2747 
2798 
2853 
2910 


sBlKB 


2449 


2618 


2955 


























sBLKW 


3007 


3020 


3023 


3028 


3031 






















9BYTE 


475 
1576 
2456 


476 
1613 
2457 


480 
1614 
3237 


461 
1619 
3233 


485 
1620 


486 
2186 


558 
2187 


559 
2188 


1516 
2189 


1517 
2265 


1563 
2266 


1564 
2267 


1569 
2268 


1570 
2447 


1575 
2446 


sOSAiL 


2387 






























,ENA8L 


I 


4 


8329 


























9ENO 


3309 






























«ENDC 


15 
476 
U48 
1614 
IS5I 
2273 
2461 
2494 
3236 


47 
477 
1289 
16S5 
1874 
23IS 
2467 
2497 
3239 


139 

481 
1307 
1620 
IS91 
2321 
2470 
2506 


133 
482 
1325 
1621 
1920 
2323 
2482 
2507 


I9S 
486 
1347 
1626 
1934 
2551 
2483 
2513 


208 
487 
1369 
1648 
1947 
2387 
2484 
2S19 


219 

5S9 
14&b 
1676 
1964 
2391 
2465 
2520 


251 
560 
151/ 
1685 
1977 
2419 
2486 
2530 


271 
680 
1518 
1694 
1991 
2420 
2487 
2532 


289 
699 
1564 
1713 
2019 
2427 
2488 
2539 


349 
731 
1565 
1721 
2039 
2429 
2489 
2542 


414 
799 
1570 
1736 
2083 
2432 
2490 
2560 


432 
909 
1571 
1745 
2117 
2434 
2491 
2621 


452 
927 
1576 
1765 
2137 
2450 
2492 
2951 


458 
1130 
1577 
1778 
2196 
2458 
2493 
3051 


aEouiy 

sEVEN 


47 
aS38 


4§ 

1J@ 

2948 


56 
131 


71 
132 


72 
133 


101 
134 


11^2 
135 


103 
136 


104 
137 


105 
138 


106 


107 


108 


109 


110 


9IF 


II 

475 
1147 
1613 

1850 

ggTg 


45 
476 
1283 
1614 
1873 
2SIT 


111 
480 
S306 
1619 
1390 
2321 


139 

461 
1324 
1620 
1919 
2322 


194 

«as 

1346 
1625 
1933 
2323 


208 
486 
1388 
1647 
1946 
2351 


218 
558 
1453 
1675 
1963 
2390 


250 
&S9 
1S16 
1684 
1976 
2J91 


270 
679 
1517 
1693 
1990 
2419 


288 
69S 
1563 
1712 
2018 
2427 


348 
730 
1564 
1720 
2038 
2428 


413 
798 
1569 
1735 
2082 
2432 


431 
908 
1570 
1744 
2116 
2433 


449 
926 
1575 
1764 
2137 
2449 


452 
1129 
1576 
1777 
2195 
2450 



DZRXAE.Pll CROSS ^eFEKENCt TABLE - PERMANENT SYHttOLS 





2456 

3050 


2460 
2496 
323T 


24b6 
3238 


2470 
25K37 


2474 
2512 


2483 
2519 


<^4b4 
2521^ 


248b 
2528 


2486 

2530 


2487 
2532 


2469 
2536 


i«9M 
2541 


2491 
2559 


249? 

e;6e*0 


2493 
d95W 


alFT 


«7 
680 

I5e>a 
nT8 
aa73 

2530 
2393 


195 
699 
1570 
1851 
2318 
2542 
2398 


219 
731 
1576 
1874 
2323 
2560 


251 
749 
1614 
189i 
2391 
2621 


271 

9H9 
1620 
1920 
2393 
2951 


289 
927 
1626 
1934 
2398 
3051 


349 
113m 

16Mtt 

19<47 
2419 


414 
1148 
1676 
1964 
2420 
3239 


432 
1289 
1685 
1977 
2429 


475 
1307 
1694 
1991 
2433 


476 
1325 
1713 
2019 
2450 


460 
1347 
1721 
2039 
2461 


461 
1389 
J736 

24b7 


486 
1456 
17a5 
2117 
2497 


559 
1517 
17b5 
6-196 
25l3 


.IFTF 


2338 


2391 


2394 


























.IXF 
.IRP 

aisT 


10 

2185 

2«57 

208 


15 
2186 
2458 
2288 


20 
2187 
2482 
2308 


21 
2188 
2483 
2S00 


474 
2169 
2464 
2506 


479 
2190 
2485 
2519 


ftoa 

2191 
206 7 

2520 


2192 

2489 


1515 
2193 
2490 


1562 
2318 
2491 


1568 
2319 
2492 


15?4 
2341 
2493 


1612 
24«2 
3236 


1618 

2451^ 


2184 
2456 


1 

2490 


3 

2491 


153 
241)2 


174 
2493 


208 
2494 


2419 


247a 


2462 


2483 


2484 


2485 


2486 


2467 


daSB 


2489 


.MACRO 


I 


2474 




























.MCALL 


5 


6 


153 


























.NLIST 
,REPT 


1 
2490 


2 

2491 


153 
2492 


174 
2493 


208 
2494 


2419 


2474 


2482 


2483 


2484 


2485 


2486 


2467 


2468 


2489 


,SBTTL 
.TITLE 


43 

10 


449 


2114 


2193 


2270 


2315 


243« 


2474 


2494 


2539 


2557 










,WOf?D 


173 
2593 


187 
3034 


344 
3035 


345 


346 


1225 


2181 


2184 


2185 


2269 


2318 


2319 


2529 


2531 


2556 



ERRORS DETECTED: 

OirAULT GLOBALS GENERATED: 

»iOZRXAE,SEQ/SOL/CRF8SySMAC,SML,OZRXAt.pii 
RUN-TIMEI 42 4a b SECONDS 
RUN-TIME RATlOl 375/93«4,0 
CORE USEDl 34k U7 PAGES) 
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